Excel vba最後一行

在Excel VBA中，獲取工作表的最後一行可以使用Worksheet.UsedRange.Rows.Count屬性。以下是一個簡單的示例：

Sub GetLastRow()
    Dim LastRow As Long

    With ThisWorkbook.Worksheets("Sheet1") ' 替換為你的工作表名
        LastRow = .UsedRange.Rows.Count
        ' 或者使用以下任一方法
        ' LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
        ' LastRow = .Range("A1").End(xlDown).Row
    End With

    MsgBox "最後一行是：" & LastRow
End Sub

這個Sub過程將彈出一個訊息框，顯示工作表"Sheet1"的最後一行。請確保你的工作簿中有一個名為"Sheet1"的工作表，並且有數據。如果你有不同的工作表或工作簿，請相應地替換代碼中的工作表名。

如果你想要獲取特定範圍的最後一行，例如A1:C100，你可以這樣做：

Sub GetLastRow()
    Dim LastRow As Long
    Dim RangeReference As Range

    Set RangeReference = ThisWorkbook.Worksheets("Sheet1").Range("A1:C100") ' 替換為你的範圍
    LastRow = RangeReference.Rows.Count

    MsgBox "最後一行是：" & LastRow
End Sub

請注意，這個示例假設你的數據從A1開始，並且是連續的。如果你有空行或空列，或者數據不是連續的，你可能需要使用其他方法來獲取最後一行。