在Excel Vba中选择最后8行

在Excel VBA中，可以使用以下几种方法选择最后8行：

方法一：使用UsedRange属性和Rows属性

Sub SelectLast8Rows()
    Dim LastRow As Long
    
    With ActiveSheet
        LastRow = .UsedRange.Rows.Count
        .Range("A" & LastRow - 7 & ":A" & LastRow).Select
    End With
End Sub

该方法首先通过UsedRange属性获取活动表格的使用范围，然后使用Rows属性选择最后8行的范围。

方法二：使用End属性和Offset属性

Sub SelectLast8Rows()
    Dim LastRow As Long
    
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range("A" & LastRow - 7 & ":A" & LastRow).Select
    End With
End Sub

该方法通过使用End属性和xlUp常量找到最后一个非空单元格所在的行，然后使用Offset属性选择最后8行的范围。

方法三：使用Cells属性和Resize属性

Sub SelectLast8Rows()
    Dim LastRow As Long
    
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range(.Cells(LastRow - 7, 1), .Cells(LastRow, 1)).Select
    End With
End Sub

该方法通过使用Cells属性和Resize属性选择最后8行的范围，其中Cells属性用于指定范围的起始单元格，Resize属性用于指定范围的行数和列数。

这些方法都是基于选择最后8行，如果需要选择其他行数，只需要将代码中的数字8替换为相应的行数即可。

以上是在Excel VBA中选择最后8行的方法。如果您需要更多关于Excel VBA的帮助，请访问腾讯云开发者中心的Excel VBA文档：Excel VBA文档链接。