Vba最後一列

在Microsoft Excel中使用VBA(Visual Basic for Applications)編程時,要獲取工作表中的最後一行,你可以使用以下代碼:

Dim LastRow As Long
LastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

這段代碼將變數LastRow設定為工作表中最後一個有數據的單元格的行號。如果你想要獲取最後一行中最後一個非空單元格的列號,你可以使用以下代碼:

Dim LastCol As Long
LastCol = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column

請注意,這些代碼假設你的工作表中有數據。如果你的工作表是空的,SpecialCells(xlCellTypeLastCell)將返回錯誤。在這種情況下,你可以使用以下代碼來獲取最後一行:

Dim LastRow As Long
LastRow = ActiveSheet.Rows.Count

這將返回工作表中最後一行的行號,即使它是空的。