Question

是否有任何办法在一份Excel板片中发现RodWS的高度从1到50,以及COLUMNS从A到Z的宽度,而没有人工点击和写下答案?

增编

Michael。

Answer 1

加入:

Range("A1:A50").Height        height of range
Range("A:Z").Width            width of range
Range("A1:A50").Rows.Count    number or rows in range
Range("A3").Height            height of A3 cell
Range("A3").Width             width of A3 cell

Answer 2

在Excel VBA中,你可以使用这样的东西:

Range("A1:A50").Height

以及

Range("A:Z").Width

Answer 3

在Excel vba,通过使用浏览器,获得浏览量高的产出是容易的。高地财产:

Sub outputRowHeight()
    Dim i As Integer

    For i = 1 To 50
         Debug.Print Rows(i).Address & " is : " & Rows(i).Height
    Next i

End Sub

在宽度一栏中,我们使用一栏、宽度财产。这是一个小小小小trick,因为你可以通过字母字母直拨,因此我们需要使用该指数:

Sub outputColumnWidths1()
    Dim i As Integer

    For i = 1 To 26  26th letter is Z
            Debug.Print Columns(i).Address & " is : " & Columns(i).Width
    Next i

End Sub

如果你想要避免知道信件的索引,你可以使用声明,在你离开范围后退席:

Sub outputColumnWidths2()
    Dim i As Integer

    For i = 1 To 99  using 99 as arbitrary high end number
        If Columns(i).Address <> "$AA:$AA" Then
            Debug.Print Columns(i).Address & " is : " & Columns(i).Width
        Else  once we get outside of A-Z, we want to end.
            Exit For
        End If
    Next i

End Sub

这将产生与第一个例子相同的结果,但你可以将其扩大到你想要达到的许多栏目,即放弃其编号,以及你不想评价的第一个栏目。

希望这一帮助!

友情链接