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

2022年8月25日 110次阅读 来源: 水木清华1986

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

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

如下表格示例：

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

方法一：

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

    原文作者：水木清华1986
    原文地址: https://blog.csdn.net/xiaoqiang3146/article/details/105833433
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞