vba-使用範圍的最後一行和一列

Question

我想要獲取使用範圍的最後一行和一列。

得到最後的行和列我用下面

Dim varCurrentUsedRange As Variant 
Dim LastRow As Long 
Dim LastCol As Long 

varCurrentUsedRange = ActiveSheet.UsedRange 

LastRow = UBound(varCurrentUsedRange) 
LastCol = UBound(varCurrentUsedRange , 2) 

代碼此代碼返回正是上次使用的行數，甚至是第一個使用小區不在行1

但返回使用的列數而不是最後使用的列。

例如，如果第一個使用的列是2，最後一個是6，則預期返回6，但它只返回5（使用的列數）。

那麼如何得到最後使用的列號而不管起始列？

預先感謝您。

Answer 1

考慮以下幾點：

Sub range_reporter() 
    Dim r As Range 
    Dim s As String 
    Dim nLastRow As Long, nLastColumn As Long 
    Dim nFirstRow As Long, nFirstColumn As Long 

    ActiveSheet.UsedRange 
    Set r = ActiveSheet.UsedRange 

    nLastRow = r.Rows.Count + r.Row - 1 
    MsgBox ("last row " & nLastRow) 

    nLastColumn = r.Columns.Count + r.Column - 1 
    MsgBox ("last column " & nLastColumn) 

    nFirstRow = r.Row 
    MsgBox ("first row " & nFirstRow) 

    nFirstColumn = r.Column 
    MsgBox ("first column " & nFirstColumn) 

    numrow = r.Rows.Count 
    MsgBox ("number of rows " & numrow) 

    numcol = r.Columns.Count 
    MsgBox ("number of columns " & numcol) 
End Sub 

它定義一些UsedRange的性質。
它不依賴於創建內部VBA陣列。