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個欄位