vba获取最后一行行号

你可以使用以下VBA代码来获取最后一行的行号：

Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

这个代码假定你想要获取第一列的最后一行的行号。如果你想要获取其他列的最后一行的行号，只需要将代码中的第二个参数（即数字1）替换成你想要的列号即可。

相关问题

VBA根据上一行内容在下一行写个值，一直到上一行的最后一列结束

以下是一个VBA代码示例，可以根据上一行的内容在下一行写入一个值，直到上一行的最后一列结束：

Sub FillDown()
    Dim i As Long
    Dim lastColumn As Long
    Dim lastRow As Long
    
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row ' 获取最后一行的行号
    lastColumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column ' 获取第一行的最后一列的列号
    
    For i = 2 To lastRow ' 从第二行开始循环
        If ActiveSheet.Cells(i, 1) <> "" Then ' 如果这一行的第一个单元格不为空，则复制上一行的值
            ActiveSheet.Cells(i, 2).Value = ActiveSheet.Cells(i - 1, lastColumn).Value
        End If
    Next i
End Sub

在这个示例中，我们使用了一个循环来遍历所有需要填充值的行。在每个循环迭代中，我们检查这一行的第一个单元格是否为空。如果不为空，我们就将这一行的第二个单元格设置为上一行的最后一个单元格的值。

请注意，我们使用了两个内置函数`Rows.Count`和`Columns.Count`来确定工作表的大小。我们还使用了`End(xlUp)`和`End(xlToLeft)`函数来查找最后一个非空行和最后一个非空列。

请确保在使用此代码之前，将当前工作表中的数据备份，以防意外更改或数据丢失。

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)`返回的是包含该单元格的行，而我们需要的是不含该行的实际行数。