vba查找最后一行

叫我瞄大人

1、Rang.End找到最后一行

image.png
求第3列最后一行的行号

'第3列最后一行的行号
Sub findLastRow()
Dim r As Range
Set r = Cells(Rows.Count, 3).End(xlUp)
r.Select
MsgBox r.Row
End Sub

2、Range.SpecialCells找到最后一行

image.png

Sub findLastRow2()
Dim r As Range
Set r = Cells.SpecialCells(xlCellTypeLastCell)
MsgBox r.Row
End Sub

3、Range.Find找到最后一行(最优)

image.png

Sub findLastRow3()
    Dim r As Range
    Set r = Cells.Find("*", after:=Range("A1"), searchorder:=xlRows, searchdirection:=xlPrevious)
    If r Is Nothing Then
        MsgBox "表格没有数据"
    Else
        MsgBox r.Row
    End If
End Sub
阅读 2.3k

个人编程学习
python,matlab,VB

喜欢追星的非科班的编程爱好者

458 声望
74 粉丝
0 条评论
你知道吗?

喜欢追星的非科班的编程爱好者

458 声望
74 粉丝
文章目录
宣传栏