2021年2月14日 星期日

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類似這樣。

沒有留言:

張貼留言

指數變化(2024.09.27)

   指數變化(2024.09.27) 上周焦點:      美國房貸綜合指數 9/4     美國失業率 9/6 4.2%     美國非農人數就業人數 9/6 14200      美國核心CPI年增率 9/11 降 2.5%      美國消費者物價指數月增率 9/11 月...