Question

如上所述。

我想使用这个：

colnum = ws.UsedRange.Find(what:=Sheet11.Range("B1"), lookat:=xlWhole).Column

找不到Sheet11.Range（“ B1”），而是找到颜色，并且只有在整个列都被染成红色的情况下才可以。

有什么建议吗？

Answer 1

例如，您可以使用if Range("B:B").Interior.Color = RGB(255, 0, 0)

有关详情，请参见此问题VBA to identify cells in red

编辑：

我不确定usedRange指的是什么，但希望该示例可以为您提供所需的信息。我们遍历各列查找匹配项-我不知道有更好的方法

Sub Macro1()
    clr = Sheets("Sheet11").Range("B1").Interior.Color

    For c = 1 To 100 'however many columns you may need to search ...
        If ActiveSheet.Columns(c).Interior.Color = clr Then
            ' set whichever cell you want = c 
        End If
    Next c
End Sub

如果ENTIRE COLUMN为红色，则在VBA中查找列号

1 个答案: