【Excel VBA】 判斷最後一列與最後一欄

Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row 
'依照第一欄最後一筆資料判斷為第幾列
Cells(1,ActiveSheet.Columns.Count).End(xltoleft).column
'判斷最後一欄為第幾欄

隱藏列也可判斷最後一列

xRow = Sheets("工作表1").Columns(1).Find(What:="*", LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row
'SearchDirection:=2 1為最上一筆相同資料 2為最下一筆相同資料
'.Columns(1) =第1個欄位