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

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

頑張ろう！

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

阅读量5.7k

点赞数 1

分类专栏： VBA 文章标签： Excel VBA 脚本数据处理自动化

本文链接：https://blog.csdn.net/m0_37823115/article/details/125427429

版权

VBA 专栏收录该内容

5 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

测试用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