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.12.06)

       指數變化(2024.12.06) 上周焦點:   密西根消費者信心指數 74,又破70了 本周愛看:        美國蠆售銷售月增率 12/09       美國核心CPI年增率 12/11       美國連續申請失業救濟人數 12/12  本周指數變化: 指數...