Excel VBA 使用单元格和 xlDown 选择范围

Question

我正在循环 A 列中的范围来查找标题，一旦找到，我需要选择下一个单元格，一直到最后使用的单元格。

我一生都无法使用 Cells 和 End(xlDown) 选择此范围

For k = 1 To lastCell
    If Cells(k, 1).Value = rangeName Then
        Range(Range(Cells(k + 1, 1)), Range(Cells(k + 1, 1)).End(xlDown)).Select
    End If
Next k

我尝试过 Range(Cells(k + 1, 1), Cells(k + 1, 1).End(xlDown))，但没有任何组合有效。

A列中有空白单元格，数据示例如下:

MONTH
Jan
Feb

AGE
18-21
22+

GENDER
Male
Female
Horse

例如，如果 rangeName 等于 GENDER，我将如何选择此范围。

Answer 1

以下应该有效:

For k = 1 To lastCell
    If Cells(k, 1).Value = rangeName Then
        Range(Cells(k + 1, 1), Cells(k + 1, 1).End(xlDown)).Select
    End If
Next k

但是，我建议您更明确地编写代码以确保其正常工作:

With Worksheets("SheetYouAreWorkingOn")
    For k = 1 To lastCell
        If .Cells(k, 1).Value = rangeName Then
            .Range(.Cells(k + 1, 1), .Cells(k + 1, 1).End(xlDown)).Select
        End If
    Next k
End With

在空/新文件上使用示例数据进行测试:

Public Sub tmpSO()

Dim lastCell As Long
Dim rangeName As String

rangeName = "AGE"

With Worksheets("Sheet1")
    lastCell = .Cells(.Rows.Count, 1).End(xlUp).Row
    For k = 1 To lastCell
        If .Cells(k, 1).Value = rangeName Then
            .Range(.Cells(k + 1, 1), .Cells(k + 1, 1).End(xlDown)).Select
        End If
    Next k
End With

End Sub