VBA：取得最後一列跟最右一行

整理資料時，不免要判斷資料數量，在判斷資料時，資料有時會有不連續與連續資料，這時候判斷方式不盡相同 

連續資料時：

a行於65000儲存格以前的最後列，有點饒舌；應該是這樣看，從a65000往上找(xlup)，找到的第一個儲存格，也相對於是a行在65000列之前最後一列。

END_ROW =activesheet.Range("a65000").End(xlUp).Row

第1列最右手邊的行別，透過Columns.Count取的最後一行後，往第一列的最左邊取得行別。

S2 =activesheet.Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Column

不連續資料時：

application.counta(儲存格範圍)

儲存格範圍：a:a、1:1類似這樣。