通过标题VBA定义范围

Question

我在VBA中有一个范围定义，如下所示：

Sheet5.Range(Range("K2"), Sheet5.Range("K2").End(xlDown))

这有效，但如果我的报告的布局发生变化，它将无法正常工作。 我想知道是否可以根据列第一行中的标题来定义范围？ 任何有关此问题的帮助将不胜感激！

Answer 1

以下示例根据名称搜索标头。 在该示例中，它根据匹配为整个列Red ，但您可以更改它。 变量应该很容易理解，但请告诉我相关问题。

Sub Color_Range_Based_On_Header()
    Dim rngHeaders As Range
    Dim rngHdrFound As Range

    Const ROW_HEADERS As Integer = 1
    Const HEADER_NAME As String = "Location"

    Set rngHeaders = Intersect(Worksheets("Sheet1").UsedRange, Worksheets("Sheet1").Rows(ROW_HEADERS))
    Set rngHdrFound = rngHeaders.Find(HEADER_NAME)

    If rngHdrFound Is Nothing Then
        'Do whatever you want if the header is missing
        Exit Sub
    End If

    Range(rngHdrFound, rngHdrFound.End(xlDown)).Interior.Color = vbRed

End Sub

Answer 2

您可以使用任何您想要的名称命名范围。 在左上角，您可以看到所选范围的ID。 如果您在其中键入名称“Header_Cell”，则可以将代码更改为：

Sheet5.Range(Range("Header_Cell"), Sheet5.Range("Header_Cell").End(xlDown))