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

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