WPS2019VBA 在xlsx文件中获取最后一行的行数

WPS Office 2019 的 VBA (Visual Basic for Applications) 提供了操作Excel的强大工具，包括读取和修改工作表数据。要获取XLSX文件中最后一个非空行的行数，你可以编写如下的VBA代码：

Sub GetLastRow()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") '这里替换为你实际的工作表名称
    Dim lastRow As Long
    With ws
        '跳过表格头部(如果有的话)
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row - 1 '注意这里是xlUp而不是xlDown，因为我们要找的是最后一个非空行
    End With
    MsgBox "最后一行的行号是：" & lastRow
End Sub

上述代码首先设置了当前活动工作表为"Sheet1"（请按需替换），然后通过`.Cells(.Rows.Count, 1)`找到该列的最后一行，再减去1，因为`End(xlUp)`返回的是包含该单元格的行，而我们需要的是不含该行的实际行数。