在VBA裡面快速取得最後一欄及最後一列

1.中間沒空白
cells(1.1).End(xlDown).Row               '在第一格按下Ctrl + 方向鍵往下
cells(1.1).End(xlToRight).Column      '在第一格按下Ctrl + 方向鍵向左
2.中間有空白
cells(ActiveSheet.Rows.Count,1).End(xlUp).Row                     '最後一格往上選
cells(1,ActiveSheet.Columns.Count).End(xlToLeft).Column    '最左邊往右選