VBA学习心得一：关于获取某个sheet表最后一行的行号

获取某个sheet表最后一行的行号，对于使用vba进行循环查找是必经的过程：

通过我最近的学习发现2中方法进行使用，现在分享如下：

如下表格示例：

方法一：

Public Sub test()
        Dim lastRow As Long
        lastRow = Worksheets(1).Columns(1).Find("*", searchdirection:=xlPrevious).Row
        MsgBox lastRow
End Sub

此时lastRow为16

 

方法二：

Public Sub test1()
        Dim lastRow As Long
        lastRow = Worksheets(1).UsedRange.Rows.Count
        MsgBox lastRow
End Sub

此时lastRow为16

 

说明下方法一和方法二的区别：

方法一查询到最后行的非空单元格的行数

例如查第二列：

Worksheets(1).Columns(2).Find("*", searchdirection:=xlPrevious).Row的结果是15

而方法二是已经用的行数，即使第16行只用了一个单元格，使用的行数也是16