vba统计有数据的单元格行数 vba里如何取得某个sheet的行数？

vba里如何取得某个sheet的行数？

VBA非常简单。字典读入数据，然后进行匹配。

Sub test（）

带Sheet1

arr=应用程序。转置（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

“将提取的内容写入表2中

对于n=3到500”取出一个月的行数作为循环的起点

如果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当前工作表行总数K=activesheet.usedrange.rows行. count指定工作表1中的列总数，j=工作表（“工作表1”）usedrange.columns.count列前提是顶部和左侧没有空行和空列

iRows=activesheet.usedrange.rows行.countiColumns=activesheet.usedrange.Columns文件. count“如果表的前几行或前几列可能为空，则需要获取最下面的行和最右边的列的数目：使用活动表.usedrangeiEndRow=。行.计数.row-1 iEndColumn=。列.计数。列-1以

~]结尾。Row

，获取活动工作表中a列的最大行数，如图所示。结果是12

代码说明：

activesheet：指当前活动的工作表。

范围（“a65536”）：指单元格a65536。为什么65536不是其他号码？由于03版Excel的最大行数是65536，所以为了保证兼容性，一般用65536来表示最大行数。当然，如果您使用07版Excel，并且您的数据可能超过65536行，您可以将数字改为1048576。行

：从下到上查找最后一个非空单元格并获取其行号。

演示效果：

下面的代码分别获取BC列的最后一行。

vba统计有数据的单元格行数 vba跳出for循环 vba获取最后一列列数

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。