VBA 获取某列最后非空单元格的行数

最新推荐文章于 2024-05-15 10:17:29 发布

原创最新推荐文章于 2024-05-15 10:17:29 发布 · 6.1k 阅读

16 ·

CC 4.0 BY-SA版权

文章标签：

#开发语言

VBA 专栏收录该内容

5 篇文章

订阅专栏

这段VBA代码用于在Excel中打开特定文件，选取指定的sheet，找到某列的最后非空行数，并输出。同时，它还查找某列的非空最后一行的值。这个脚本对于数据处理和自动化工作流程非常有用。

测试用excel：

代码

Sub findDataRow()
    Dim wkBook As Workbook
    Dim wkSheet As Worksheet
    Dim findRow As Integer
    
    ' 指定excel文件
    Set wkBook = Workbooks.Open(ThisWorkbook.Path & "\" & "test.xlsx")

    ' 指定sheet页
    Set wkSheet = wkBook.Sheets("sheet2")

    ' 指定某一列
    findRow = wkSheet.Cells(Rows.Count, "B").End(xlUp).Row
    
    ' 输出行数
    Debug.Print "findRow:" & findRow
    
    ’***************************************************************************
    Dim findCol As Integer
    
    ' 指定列，并获取此列非空的最后一行的值  A也可以换成 数字1（但是此时要删除引号）
    findCol = wkSheet.Cells(Columns.Count, "A").End(xlUp).Columns

    ' 输出值
    Debug.Print "findCol:" & findCol
    
    ' 关闭excel文件
    wkBook.Close savechanges:=True
End Sub

输出结果：

findRow:16
findCol:181