Vba迴圈最後一列

在VBA中，如果你想要訪問工作表中的最後一列，你可以使用以下方法：

1. 使用Range對象的Rows屬性來訪問最後一列。

Dim lastRow As Range
Set lastRow = ThisWorkbook.Worksheets("Sheet1").Range("A1").End(xlDown)

這段代碼會設置lastRow變量為工作表"Sheet1"中的最後一列。

2. 使用Cells對象來訪問最後一列。

Dim lastRow As Range
Set lastRow = ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, "A")

這段代碼也會設置lastRow變量為工作表"Sheet1"中的最後一列。

3. 使用Worksheet.UsedRange屬性來訪問最後一列。

Dim lastRow As Range
Set lastRow = ThisWorkbook.Worksheets("Sheet1").UsedRange.Rows(UsedRange.Rows.Count)

這段代碼會設置lastRow變量為工作表"Sheet1"中已使用的範圍的最後一列。

請注意，以上代碼假設你想要訪問的工作表名稱為"Sheet1"，你需要根據你的工作表名稱進行相應的更改。此外，xlDown參數用於指定從單元格A1向下尋找最後一個包含數據的單元格。如果你工作表的數據不是從第一列開始的，你可能需要使用其他尋找方向參數，例如xlToRight。