vba - Excel VBA : Get Last Cell Containing Data within Selected Range

Question

如何使用 Excel VBA 获取包含特定范围内数据的最后一个单元格(例如 A 列和 B 列Range("A:B"))？

Answer 1

使用像下面这样的Find很有用，因为它

• 可以立即找到二维范围内的最后一个(或第一个)单元格
• 测试Nothing识别空白范围
• 适用于可能不连续的范围(即 SpecialCells 范围)

将“YourSheet”更改为您正在搜索的工作表的名称

Sub Method2()
    Dim ws As Worksheet
    Dim rng1 As Range
    Set ws = Sheets("YourSheet")
    Set rng1 = ws.Columns("A:B").Find("*", ws.[a1], xlValues, , xlByRows, xlPrevious)
    If Not rng1 Is Nothing Then
        MsgBox "last cell is " & rng1.Address(0, 0)
    Else
        MsgBox ws.Name & " columns A:B are empty", vbCritical
    End If
End Sub