【教學】Excel VBA 如何找出最後一列、最後一欄？超簡單馬上學會！

excel vba 最後一列 最後一欄

最後一列

將下面程式碼貼上到自己的巨集中，即可找到A欄中最後一列的列數

Sub 找最後一列()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    MsgBox "最後一列是第 " & lastRow & " 列"
End Sub

執行後，會跳出提醒視窗顯示最後一列是11列

---

最後一欄

將下面程式碼貼上到自己的巨集中，即可找到第1列最後一欄的欄數

Sub 找最後一欄()
    Dim lastCol As Long
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox "最後一欄是第 " & lastCol & " 欄"
End Sub

---

執行後，會跳出提醒視窗顯示最後一欄是11欄