有很多列数据，VBA能最快得到最大行号？--最快--

dz05 · 发表于 2013-3-23 23:00

本帖最后由 dz05 于 2013-3-30 22:04 编辑

有很多列数据，行号也很大，如何用VBA最快的速度获得最大行号是多少？

Max Row.zip (7.25 KB, 下载次数: 39)

zhaogang1960 · 发表于 2013-3-23 23:21

不一定最快，只有一句：

MsgBox Columns("A:G").Find("*", , -4163, , 1, 2).Row

复制代码

1578278106 · 发表于 2013-3-23 23:23

Sub maxrow()
Dim ar
ar = Range("a1").CurrentRegion
MsgBox "最大行号是" & UBound(ar)
End Sub

复制代码

ngnndkkk · 发表于 2013-3-23 23:36

本帖最后由心电感应于 2013-4-1 14:54 编辑

是地球人都知道的答案：
MsgBox "最后行号：" & ActiveSheet.UsedRange.Find("*", ActiveSheet.UsedRange.Cells(1), xlFormulas, xlPart, xlByRows, xlPrevious, False, False, False).Row
是地球人也都知道的Find 方法的缺陷：不适用于筛选（正好靠后行被隐藏）！！！
在某些情况下，Find方法还会莫名其妙地得到错误的行号或列号，比如表格格式复杂（表头存在合并单元格）。

俺知道在任何情况下（至少目前我还找不出什么情况下找不到正确行号或列号）都能较快地获得最后行号或列号的办法，但一般人我不告诉他（她），嘿嘿……

yaozong · 发表于 2013-3-24 08:13

'' Find 方法应该没问题!
Sub 获取数据区域行列参数()
Dim rng As Range, r(1 To 2), c(1 To 2), k%
Set rng = ActiveSheet.UsedRange
For k = 1 To 2
r(k) = rng.Find("*", , , , 1, k).Row
c(k) = rng.Find("*", , , , 2, k).Column
Next
MsgBox "数据区域行号: " & r(1) & "～" & r(2) & vbLf & "数据区域列号: " & c(1) & "～" & c(2)
End Sub

yaozong · 发表于 2013-3-24 09:02

本帖最后由 yaozong 于 2013-3-24 09:20 编辑

可适用非连续的数据区域
Sub 获取数据区域行列参数()
Dim rng As Range, r1&, r2&, c1&, c2&
Set rng = ActiveSheet.UsedRange
r1 = rng(1).Row
r2 = rng.Find("*", , , , 1, 2).Row
c1 = rng(1).Column
c2 = rng.Find("*", , , , 2, 2).Column
MsgBox "数据区域行号: " & r1 & "～" & r2 & vbLf & "数据区域列号: " & c1 & "～" & c2
End Sub

dz05 · 发表于 2013-3-30 22:04

谢谢大家。。。。。

a68508122 · 发表于 2016-5-9 10:43

马克收藏下这个有用

HUA79100101 · 发表于 2018-6-10 15:55

可适用非连续的数据区域
Sub 获取数据区域行列参数()
Dim rng As Range, r1&, r2&, c1&, c2&
Set rng = ActiveSheet.UsedRange
r1 = rng(1).Row
r2 = rng.Find("*", , , , 1, 2).Row
c1 = rng(1).Column
c2 = rng.Find("*", , , , 2, 2).Column
MsgBox "数据区域行号: " & r1 & "～" & r2 & vbLf & "数据区域列号: " & c1 & "～" & c2
End Sub

收藏代码

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

[已解决] 有很多列数据，VBA能最快得到最大行号？--最快--

评分

评分