EXCEL VBA 最后非空行或列

Excel2119 · 发表于 2019-1-23 12:01

1．取得指定的最后非空行号或非空列号
   使用Range对象的End属性
   指定行的最后非空行号：Range("A65536").End(xlUp).Row
   指定行的最后非空列号：Range("IV1").End(xlToLeft).Column

   扩展: 使用Range对象的End属性，在取得单元格对象后便能获得该单元格的相关属性，如单元格地址、行列号、数值等，如下面的代码所示。使用Range对象的End属性，在取得单元格对象后便能获得该单元格的相关属性，如单元格地址、行列号、数值等，如下面的代码所示。

<font color="#000000">Sub LastRow()
Dim rng As Range
Set rng = Sheet1.Range("A65536").End(xlUp)
MsgBox "A列中最后一个非空单元格是" & rng.Address(0, 0) _
& ",行号" & rng.Row & ",数值" & rng.Value
Set rng = Nothing
End Sub </font>

复制代码

End属性返回一个Range对象，该对象代表包含源区域的区域尾端的单元格。等同于按键<End+向上键>、<End+向下键>、<End+向左键> 或<End+向右键>，语法如下：

<font color="#000000">expression_r.End(Direction)</font>

复制代码

参数expression_r是必需的，一个有效的对象。

参数Direction是可选的，所要移动的方向，可以为表格 3?1所示的XlDirection 常量之一。

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

Range对象的End属性返回的是一个Range对象，因此可以直接使用该对象的属性和方法。

2．取得sheet最后非空行号或非空列号
   sheet最后非空行号：Activesheet.UsedRange.rows.count
                              或 ActiveCell.SpecialCells(xlLastCell).Row
   sheet最后非空列号：Activesheet.UsedRange.columns.count
                              或 ActiveCell.SpecialCells(xlLastCell).Column

powerremain · 发表于 2019-2-1 11:48

感谢分享！！！！！！

jinhaitiao16 · 发表于 2019-2-23 15:05

感谢楼主分享！！！！！！

barlz · 发表于 2019-8-1 13:49

谢谢分享！

mjpeng1972 · 发表于 2019-8-1 15:38

感谢分享，学习。

zycse · 发表于 2020-4-17 10:27

谢谢分享！

niko88819 · 发表于 2020-4-17 12:48

谢谢分享 !!!

和乐隐士 · 发表于 2021-10-23 15:34

谢谢分享 !!!

海边的锋很大 · 发表于 2022-6-18 18:18

谢谢分享 !!!

dljyh2009 · 发表于 2023-9-26 22:30

谢谢分享 !!!

		自动登录	找回密码
密码			免费注册

[推荐] EXCEL VBA 最后非空行或列

评分