vba - 选择 A 列中最后使用的单元格，然后将其扩展到 H 列

Question

您好我正在尝试选择一个范围"A2:H2"根据 column A 直到最后一个填充的单元格(所以在这种情况下它应该选择 "A2:H59" )。范围不是固定的，因此不能用确切的数字来定义。我有以下代码，但它会选择直到第 402 行的所有内容，即使没有超出 "A59" 的数据也是如此在工作表中。知道发生了什么吗？谢谢您的帮助!

Global ssaw As Worksheet
Global trckr As Worksheet
Sub DataF()
Dim myRange As Range
Dim myCell As Range

    Set ssaw = Sheets("SSAW_DATA")
    Set trckr = Sheets("SQL_DATA_FEED")
    Set myRange = trckr.Range("A2:H2").end(xlDown)


        With myRange
            .SpecialCells(xlCellTypeBlanks).Interior.Color = RGB(255, 102, 102)
            .SpecialCells(xlCellTypeBlanks).Value = "#missing#"
        End With

End Sub

Answer 1

如果我们假设您在 A 列中最后使用的单元格是 A59然后 …

… 这个

Set myRange = trckr.Range("A2", trckr.Range("A2").End(xlDown))

将选择 A2:A59和这个

.Resize(ColumnSize:=8)

将调整它的大小，使其宽度为 8 列，即 A2:H59 .

所以我们一起得到:

Set myRange = trckr.Range("A2", trckr.Range("A2").End(xlDown)).Resize(ColumnSize:=8)

用这个

trckr.Range("A" & trckr.Rows.Count).End(xlUp) 

或者，如果两者之间可能有空单元格，则在 A 列中查找最后使用的单元格:

Set myRange = trckr.Range("A2", trckr.Range("A" & trckr.Rows.Count).End(xlUp)).Resize(ColumnSize:=8)