Excel如何通過VBA找出最後一行資料所在的列

時間 2021-09-04 02:28:20

1樓:陽光上的橋

一般有兩個方法,一是使用activesheet.usedrange,這個表示所有已經使用的區域,一般可以賦值給陣列完成所有資料的讀取,也可以使用activesheet.usedrange.

rows.count和activesheet.usedrange.

columns.count獲得區域的行列數量。

另外,可以使用end獲得某行(或者某列)最後一個資料,例如需要獲得a列最後一個資料所有在行可以用:

activcesheet.cells(activcesheet.rows.count,1).end(xlup).row

excel vba 如何取到有內容的最後一列和最後一行

2樓:

1、開啟資料表。

2、選中一個單元格,同時按鍵盤上的ctrl+↓。

3、選中的單元格迅速就到了最後一行,同時按鍵盤上的ctrl+↑。

4、選中一個單元格回到了首行,同時按鍵盤上的ctrl+→。

5、選中一個單元格迅速到了最後一列,同時按鍵盤上的ctrl+←。

6、又可以迅速回到首列。

7、還可以將滑鼠移動到單元格下邊框上,滑鼠變成上下左右箭頭時,雙擊。

8、選中單元格迅速跳到最後一行,將滑鼠移動到單元格上邊框上,滑鼠變成上下左右箭頭時,雙擊。

9、選中單元格迅速回到首列。

3樓:匿名使用者

最後一列的列號:

activesheet.usedrange.columns.count

最後一行的行號:

activesheet.usedrange.rows.count

4樓:

最後一列 [iu1].end(1).column

最後一行[a65536].end(3).row

如何使用vba命令定位到最後一行有內容單元格的下一行。

5樓:匿名使用者

i=range("a65536").end(xlup).row()+1

這個i就是a列你要的行號

此**只適用於excel 2003

如果是07以上

65536修改為1048576

6樓:靜靜邁除人

sub 選擇單元格最下面第一個空值()

range("a" & cells(rows.count, 1).end(xlup).row + 1).select

end sub

sub 選擇單元格最後一行()

range("a" & cells(rows.count, 1).end(xlup).row).select

cells(rows.count, 1).end(xlup).select'                或者這樣也行

end sub

cells(rows.count, 1)'選擇最後一個單元格

通過VBA程式找出excel表中B列的最大日期,並且排除不要的年份的日期,如12 2019(日期格式),急

這需要用vba嗎?你日期都在b列,假設你需要排除的年份為2011,c1輸入 text max if year b b 2011,b b yyyy m d 按ctrl shift enter結束即可。sub 最大日期 dim arr,r i p r range b65536 end 3 rowarr ...

如何在excel中用巨集(VBA)實現VLOOKUP的功能

慶年工坊 function myvlookup val,rg as range,n as integer,f as boolean arr rg if f then for i ubound arr to 1 step 1if val arr i,1 thenmyvlookup arr i,n en...

請問如何用excel的VBA做出,從1 20中任取數的所有組合,總共是125970種,求高手支招,萬謝

如果你只是需要結果的話,可以用函式 combin 20,8 直接求的結果,如果真是要用vba實現的話按照 tat蘿蔔說的做就行了,完善如下 sub zuhe dim times as double for i1 1 to 13 for i2 i1 1 to 14for i3 i2 1 to 15fo...