示例：

实现代码1

使用Find方法查找最后的单元格

Find方法按行查找和按列查找的区别

实现代码2

获取工作表总行数

实现代码3

单元格对象的End属性

End属性的局限性

其他获取最后数据行行号的方法

1．定位(SpeciaICells)

2.UsedRange

实现代码4

3. CurrentReion

示例：

在VBA中，经常需要对原始数据进行统计。然而在大多数情况下，数据的总行数是未知的，因而会给编写通用性较高的代码造成一些麻烦。如图所示，该表为某公司某月的销售人员销售数据。现需要对该表进行统计，由于销售人员的人数每月不固定，如何利用VBA动态获取最后一行数据的行号（以C列为准），以使程序更具备通用性？

销售地区	销售人员	销售金额
广州	程建华	135000
深圳	李国敏	67200
深圳	袁志刚	79500
深圳	周汉林	225000
广州	骈永富	15400
广州	孙玉梅	2500
上海	陈亚菁	37400
上海	康小芸	12000
上海	刘晨	22500
广州	齐光	73500
广州	于健惠	235000
山东	王文群	136500
山东	曾国安	21000
广州	刘志峰	16000
广州	刘玉录	78000
广州	俞卫广	36000
广州	杨建军	170000
深圳	曲波	38000
深圳	林革壮	73500
深圳	李卫卿	45000
广州	申玲	132000
上海	孙正发	63000
上海	毛传阳	106500
广州	张元端	147000
广州	朱凌波	265000
山东	张宏	34500
山东	郦锡文	300000
广州	张占斌	32500
广州	曹阳	205000
广州	周书敬	22400
广州	姚胜	215000
深圳	郭建	19500
深圳	高波	114000
深圳	卢卫	120000
广州	赵秀池	660000

实现代码1

Option ExplicitSub 获取数据的总行数1()Dim RowN As IntegerDim Rng As RangeSet Rng = Range("C:C").Find("*", after:=Range("C1"), searchdirection:=xlPrevious)RowN = Rng.RowDebug.Print "最后一个单元格为："; Rng.Address; ; "行号为："; RowN'另一个方法Set Rng = Range("A:C").Find("*", after:=Range("A1"), searchorder:=xlByColumns, searchdirection:=xlPrevious)RowN = Rng.RowDebug.Print "最后一个单元格为："; Rng.Address; ; "行号为："; RowN
End Sub

使用Find方法查找最后的单元格

利用Find方法可以查找非空单元格，只需填写查找内容为“*”即可。如要查找C列的最后一个非空单元格，因而将参数After设为Range(“C1”)，而SearchDirection设为xIPrevious，表示按照向上的方向进行查找。Excel默认的方向为向下和向右，xlPrevious
表示按照向左或向上的方向查找。而Find方法查找是在指定的范围内循环的。若设置在C列范围内，起始查找单元格为C1，方向为xIPrevious，Find方法会接着从C列最后一个单元格(即C1048576)开始查找。因而找到最后一个非空单元格(即C36)。

Find方法按行查找和按列查找的区别

Find方法中，SearchOrder参数可以设置为xIByRows（按行查找）或者xIByColumns（按列查找），当SearchDirection设置为xINext时，其查找顺序如图所示。

当SearchDirection设为xIPrevious时，其方向正好与图所示的方向相反。本例中，在A至C列，从A1开始向xIPrevious的方向，按列查找非空的单元格，即也是从C列的最后一个单元格开始找C列的非空单元格。在本例中，由于各列数据的行数相同，因而按行或按列的方式查找均可。但在下图所示的情况下，若按行(xIByRows)查找，则会找到A37单元格，而非C36单元格。

实现代码2

'计算量超大
Sub 获取数据的总行数2()Dim RowN As Long '不可用integer类型For RowN = Rows.Count To 1 Step -1If Cells(RowN, "C").Value <> "" ThenDebug.Print "最后一个单元格为：C"; RowNExit ForEnd IfNext
End Sub

获取工作表总行数

在不同版本的Excel中，工作表的总行数是不同的，在Excel 2003及之前的版本中，工作表的总行数为65536(即2的16次方)，而自Excel 2007开始的版本，总行数扩大到了1048576（即2的20次方）。为了让程序更通用，一般以以下方式表示工作表的总行数。其中，Rows表示所有的行，Count属性表示数量，即所有行的数量，也就是工作表的总行数。

实现代码3

Sub 获取数据的总行数3()Dim RowN As LongDim Rng As RangeIf Cells(Rows.Count, "C").Value = "" ThenSet Rng = Cells(Rows.Count, "C").End(xlUp) '上移一格ElseSet Rng = Cells(Rows.Count, "C")End IfRowN = Rng.RowDebug.Print "最后一个单元格为："; Rng.Address; ; "行号为："; RowN
End Sub

单元格对象的End属性

单元格对象的End属性相当于寻找以某个单元格为起点按组合键【Ctrl+方向键】所定位到的单元格。当起始单元格值不为空时，将找到该方向上最后一个非空单元格，当起始单元格值为空时，将找到第一个非空单元格。使用End属性将返回一个单元格对象(Range)，其语法为：

Rng.End(Direction)

其中，Rng为单元格对象，表示起始单元格。Direction为方向参数，可以为表中的任何一个常量。

表 End属性Direction参数

常量	值	说明
xlDown	-4121	向下
xlToLeft	-4159	向左
xlToRight	-4161	向右
xlUp	-4162	向上

本例中，程序首先判断C列最后一个单元格是否为空，若为空，则向上查找第一个非空单元格，反之，则C列最后一个有数据的单元格为该单元格。

End属性的局限性

由于Excel的数据量通常不可能填满最后一个单元格，因而在绝大多数情况下可以方便地使用以下表达式表示某列最后一个非空单元格的行号。

Cells(Rows.Count,列号).End(xlUp).Row

但是End属性返回的只能是可见单元格，一旦最后一行数据被隐藏了，则End属性将不会得到正确的结果，如图所示。因而在使用End属性时需要格外小心。

其他获取最后数据行行号的方法

本例展示了3种获取最后数据行行号的方法，每个方法各有各的优点。除此之外，还有以下几种方法可以获取最后数据行的行号。

1．定位(SpeciaICells)

使用SpeciaICells方法，查找最后一个单元格，语句如下：

Range ("C:C").SpecialCells( xlCellTypeLastCell).Row

但Excel判断最后一个单元格的方法并不以数据为准，在最后的数据行之后，只要设置过单元格格式或者曾经使用过的单元格，Excel都将断定其为最后的单元格。

2.UsedRange

UsedRange是工作表对象(Worksheet)的一个属性，表示用户使用过的单元格区域。可以使用以下方法获取最后一个数据行的行号：

实现代码4

Sub 获取数据的总行数4()Debug.Print "最后一个单元格为：C"; ActiveSheet.UsedRange.Rows.CountEnd Sub

与SpeciaICells一样，只要是用户设置过格式或者写入任何内容的都将断定其为使用过的单元格。

3. CurrentReion

CurrentReion属性是单元格对象的一个属性，表示该单元格所在的连续的数据区域。可以使用以下表达式获取最后数据行的行号：

Range("A1").CurrentRegion.Rows.Count

该方法同样有局限，因为CurrentReion始终返回一个矩形的单元格区域。只要有一个单元格数据接壤，该区域将会扩大到包围接壤的数据单元格。如图所示，单元格A1的CurrentReion为A1：D37，因而上述表达式求得的行号为37。

Excel 2010 VBA 入门 037 获取最后一行数据的行数相关推荐

Excel 2010 VBA 入门 110 获取最小值的自定义函数
目录例码使用ParamArray关键字声明数组参数 IsMissing函数 IsArray函数函数的嵌套与递归例在VBA编程过程中,经常会使用工作表函数Min来确立某组数中 ...
Excel 2010 VBA 入门 014 获取VBA帮助
通过录制宏可以得到许多代码,可是看不懂代码,只需要将光标定位在需要帮助的地方,按[F1]键即可打开相应的帮助文件.以获取函数Msgbox帮助时,操作步骤如下. 步骤1 按组合键[Alt+F11]打 ...
Excel 2010 VBA 入门 056 获取当前Windows登录用户名（Environ）
目录示例 Environ函数获取所有的系统环境变量示例在许多时候,开发者希望能够获取当前Windows登录用户的信息,并以此信息决定用户的使用权限等.如何使用VBA获取Windows登录用户名 ...
Excel 2010 VBA 入门 051 获取和设置计算机中的当前日期
示例 Option ExplicitSub 获取设置日期()Dim dDate1 As DateDim dDate2 As Date'获取日期dDate1 = DateDebug.Print &quo ...
Excel 2010 VBA 入门 039 按条件隐藏数据行
目录示例: 实现代码1 行和列的隐藏实例代码2 单元格对象的AutoFilter(自动筛选)方法实现代码3 单元格对象的AdvancedFilter(高级筛选)方法示例: 在E ...
Excel 2010 VBA 入门 105 将工作表数据批量导出为图片
目录示例代码 Copy. Cut和Paste方法图表对象(Chart)的Export方法利用PPT导出图片示例为防止数据的更改或者盗用,将所选的数据区域导出为图片进行展示. 代码在Exc ...
Excel 2010 VBA 入门 034 创建图片批注
目录批注(Comment)对象批注的添加与删除 FiIIFormat对象 OnError语句示例: 批注(Comment)对象 Comment对象是单元格的一个属性,表示单元格的批注.Comme ...
Excel 2010 VBA 入门 093 数据处理之建立数组
目录示例代码数组的基本概念数组的声明数组的赋值与数组数据的读取 Ubound和Lbound函数获取数组的上下限 ForEach---Next循环遍历数组的注意事项计算程序运行的时间数组处 ...
Excel 2010 VBA 入门 129 利用窗体向工作表中录入数据
目录题码窗体控件与工作表的交互窗体的事件窗体中ControIs集合访问控件控件的排列使用控件数组进行赋值题如图所示,该表为某公司订单记录表,其中所有的列都是必填的,订单编号为自动生成 ...

Excel 2010 VBA 入门 037 获取最后一行数据的行数

示例：

实现代码1

使用Find方法查找最后的单元格

Find方法按行查找和按列查找的区别

实现代码2

获取工作表总行数

实现代码3

单元格对象的End属性

End属性的局限性

其他获取最后数据行行号的方法

1．定位(SpeciaICells)

2.UsedRange

实现代码4

3. CurrentReion

Excel 2010 VBA 入门 037 获取最后一行数据的行数相关推荐

最新文章

热门文章