Excel开发(VBA)— 快速定位最后有记录的行

有时候，在进行Excel开发时，需要知道某列的最后一行的行号。Excel也提供了相关功能：Range.End属性。

Dim strCell As String
Dim nLastUseRow As Long
Dim nLastRcdRow As Long

Dim Rng As Range

'为最后一个单元格所在行 , 即最后一行,该函数表示Sheet表的使用区域中的最后一行
nLastUseRow = Cells.SpecialCells(xlCellTypeLastCell).Row

' 得到A列单元格的最后一行
strCell = "A" + CStr(nLastUseRow + 1)

Set Rng = Range(strCell).End(xlUp)

nLastRcdRow = Rng.Row' 得到行号

需要说明的是：Cells.SpecialCells(xlCellTypeLastCell).Row 指的是使用区域最后一行，并不是最后有文本单元格的一行。

比如：开始我用了100行，随后我又删除了50行，则Cells.SpecialCells(xlCellTypeLastCell).Row = 100。

当然，如果你保存了文件，则Cells.SpecialCells(xlCellTypeLastCell).Row = 50 了。

所以，可以通过联合Range.End属性实现快速定位到最后一个单元格上。

具体帮助说明：（Excel Help）

Range.End 属性

返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。等同于按键 End+ 向上键、End+ 向下键、End+ 向左键或 End+ 向右键。 Range 对象，只读。

语法

表达式.End(Direction)

表达式 一个代表 Range 对象的变量。

参数

名称	必选/可选	数据类型	描述
Direction	必选	XlDirection	所要移至的方向。

示例

本示例选定包含单元格 B4 的区域中 B 列顶端的单元格。

Visual Basic for Applications
`Range("B4").End(xlUp).Select`

本示例选定包含单元格 B4 的区域中第 4 行尾端的单元格。

Visual Basic for Applications
`Range("B4").End(xlToRight).Select`

本示例将选定区域从单元格 B4 延伸至第四行最后一个包含数据的单元格。

Visual Basic for Applications
`Worksheets("Sheet1").Activate Range("B4", Range("B4").End(xlToRight)).Select`

XlDirection 枚举

指定移动的方向。

版本信息
已添加版本： Excel 2007

名称	值	描述
xlDown	-4121	向下。
xlToLeft	-4159	向左。
xlToRight	-4161	向右。
xlUp	-4162	向上。

Excel开发(VBA)— 快速定位最后有记录的行相关推荐

在excel中怎么快速定位到想要的行？
1.在这个位置输入A6 到这行 2.在这个位置输入A6 到这行快捷键 Crtl+G
在Excel表格中快速定位的方法
在Excel中,我们需要到达某一单元格,一般是使用鼠标拖动滚动条来进行,但如果数据范围超出一屏幕显示范围或数据行数非常多时,想快速定位到某一单元格可要有点麻烦了. 其实我们可以使用"定位&q ...
vim快速定位到某一行显示行号定位匹配字符串显示当前行信息的命令
快速定位到指定行 vim打开文件默认光标会停留在文件开头,当文件行数比较多的时候很难快速找到行数进行修改,以下几种方法可以帮你快速定位到指定行. 1.命令模式下(没有输入i进行编辑前),:n 比如想到 ...
开发必备快速定位排查日志 9 大类命令详解
一.cat命令: 二.more命令: 三.less命令: 四.head命令: 五.tail命令: 六.tac命令: 七.echo命令: 八.grep命令: 九.sed命令: 混合命令: 附加: 当日志 ...
excel之vba快速合并单元格
前言平时工作中经常会用到excel的功能, 难免有一些操作不能批量处理, 比如说某一列有100w的数据需要合并单元格, 手动去点的话, 费时费力, 又不能保证准确性. 此时一般有三种办法, 1.请出 ...
android开发如何快速定位bug_三种bug定位方法
1.定位bug产生的过程测试用例的执行,基本上是程序运行过程bug产生的开始,若测试结果与期望结果有出入,即出现了错误征兆,定位bug过程首先要找出bug产生的原因,然后对bug进行修正.因此定位b ...
Linux开发_快速定位关键字与变量
Linux下开发几乎很少用IDE,基本书都是tmux,vim和zsh以及cmake与gdb这些构成一个完整的开发工具链. 那么当我们进行大型甚至中小型的项目时,文件非常多,不使用IDE的情况下如何查找 ...
excel vba 快速显示及隐藏所选数据行,并获取多重选择区地址的行列号
Sub Macro3() Application.OnKey "^h", "sHide" '仅隐藏选择的行2013.3.15 by lijilin Applic ...
Excel 2010 VBA 入门 039 按条件隐藏数据行
目录示例: 实现代码1 行和列的隐藏实例代码2 单元格对象的AutoFilter(自动筛选)方法实现代码3 单元格对象的AdvancedFilter(高级筛选)方法示例: 在E ...

Excel开发(VBA)— 快速定位最后有记录的行

Excel开发(VBA)— 快速定位最后有记录的行相关推荐

最新文章

热门文章