vba - 突出显示行直到特定列

Question

如何修改我的代码以选择直到 L 列而不是整行的行？

子审判()

Dim c As Range
Dim rngG As Range
For Each c In Intersect(ActiveSheet.UsedRange, Columns("f"))
    If c >= 1 Then

        If rngG Is Nothing Then Set rngG = c.EntireRow
        Set rngG = Union(rngG, c.EntireRow)
    End If
Next c
rngG.Select

结束子

Answer 1

只需添加一个相交，

    If rngG Is Nothing Then Set rngG = c.EntireRow
    Set rngG = Union(rngG, c.EntireRow)

... 喜欢，

    If rngG Is Nothing Then Set rngG = intersect(range("A:L").entirecolumn, c.EntireRow)
    Set rngG = Union(rngG, intersect(range("A:L").entirecolumn, c.EntireRow))

TBH，我不确定 .entirecolumn 是否完全必要，但我不久前遇到了这个问题，添加 .entirecolumn 是解决方法。

Dim c As Range, rngG As Range

For Each c In Intersect(ActiveSheet.UsedRange, Columns("f"))
    If c >= 1 Then
        If rngG Is Nothing Then Set rngG = intersect(range("A:L").entirecolumn, c.EntireRow)
        Set rngG = Union(rngG, intersect(range("A:L").entirecolumn, c.EntireRow))
    End If
Next c
rngG.Select