表最終行vba

在Microsoft Excel中使用VBA(Visual Basic for Applications)編寫代碼時,如果你想要訪問某個工作表的最後一行的數據,可以使用以下代碼:

Dim LastRow As Long
LastRow = Worksheets("YourWorksheetName").Cells(Rows.Count, 1).End(xlUp).Row

在上面的代碼中,"YourWorksheetName" 是要查找最後一行的數據的工作表名稱。這段代碼首先獲取工作表中所有行的數量,然後使用 End(xlUp) 方法來找到最後一個包含數據的行。這裡的 1 表示我們在查詢第一列(A列)的最後一個數據所在的行。

請注意,這段代碼假設你的數據表中至少有一列是有數據的。如果你的數據表是空的,或者你想要查詢的列是空的,那麼這段代碼將返回錯誤。

如果你想要查詢特定範圍內的數據的最後一行的數據,你可以這樣做:

Dim LastRow As Long
With Worksheets("YourWorksheetName").Range("A1:C100") ' 假設你的數據在這個範圍內
    LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
End With

在上面的代碼中,"A1:C100" 是一個範例範圍,你可以根據實際情況進行更改。這段代碼將在給定的範圍內查找最後一行的數據。

將這些代碼片段添加到你的VBA腳本中,就可以訪問工作表的最後一行的數據了。