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

个人编程学习
python,matlab,VB

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

467 声望
79 粉丝
0 条评论

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

467 声望
79 粉丝
宣传栏