1

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

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

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

4

2 回答 2

2

下面的示例根据名称搜索标题。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
于 2015-02-19T20:49:28.700 回答
1

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

Sheet5.Range(Range("Header_Cell"), Sheet5.Range("Header_Cell").End(xlDown))
于 2015-02-19T20:48:58.970 回答