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。如果你在那里输入一个名字＆＃34; Header_Cell＆＃34;您可以将代码更改为：

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

通过标题VBA定义范围

2 个答案: