vba里如何取得某個sheet的行數(shù)？VBA非常簡單。字典讀入數(shù)據(jù)，然后進行匹配。Sub test（）帶Sheet1arr=應(yīng)用程序。轉(zhuǎn)置（Sheet1.Range（“d4:d68”）Set d=Cr

vba里如何取得某個sheet的行數(shù)？

VBA非常簡單。字典讀入數(shù)據(jù)，然后進行匹配。

Sub test（）

帶Sheet1

arr=應(yīng)用程序。轉(zhuǎn)置（Sheet1.Range（“d4:d68”）

Set d=CreateObject（”腳本.dictionary“）

對于I=10到23

對于M=1到UBound（ARR）

d（ARR（M））=d（ARR（M））。細胞（m3，一）

next M

it=d.items

“將提取的內(nèi)容寫入表2中

對于n=3到500”取出一個月的行數(shù)作為循環(huán)的起點

如果Sheet2.Range（“a”&；n）=“2018.”&；Cells（3，I），則：a=Sheet2.Range（“a”&；n）.Row

如果Sheet2.Range（“a”&；n）=“2018.”&；n.Cells（3，i 1）Then:b=Sheet2.Range（“a”&n）.Row

Next n

表示r=a到b

num=Sheet2.Cells（r，“c”）

If num<>“”Then

Sheet2.Cells（r，“d”=d（num）

Else

End If

Next r]]Next

End with

End sub當前工作表行總數(shù)K=activesheet.usedrange.rows行. count指定工作表1中的列總數(shù)，j=工作表（“工作表1”）usedrange.columns.count列前提是頂部和左側(cè)沒有空行和空列

iRows=activesheet.usedrange.rows行.countiColumns=activesheet.usedrange.Columns文件. count“如果表的前幾行或前幾列可能為空，則需要獲取最下面的行和最右邊的列的數(shù)目：使用活動表.usedrangeiEndRow=。行.計數(shù).row-1 iEndColumn=。列.計數(shù)。列-1以

~]結(jié)尾。Row

，獲取活動工作表中a列的最大行數(shù)，如圖所示。結(jié)果是12

代碼說明：

activesheet：指當前活動的工作表。

范圍（“a65536”）：指單元格a65536。為什么65536不是其他號碼？由于03版Excel的最大行數(shù)是65536，所以為了保證兼容性，一般用65536來表示最大行數(shù)。當然，如果您使用07版Excel，并且您的數(shù)據(jù)可能超過65536行，您可以將數(shù)字改為1048576。行

：從下到上查找最后一個非空單元格并獲取其行號。

演示效果：

下面的代碼分別獲取BC列的最后一行。