着色整行

我在Range中有几个单元格颜色（“I1：I100”）。 我需要为整行着色。我有VBAlogging，但它显示了一些错误。

ActiveSheet.Range("I1:I100").AutoFilter Field:=1, Criteria1:=RGB(255, 255 _ , 0), Operator:=xlFilterCellColor Rows.Activate.Select With Selection.Interior .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With ActiveSheet.Range("$A$1:$G$9").AutoFilter Field:=1 

但是可以通过声明variables来获得一个简单的代码。

Answer 1

Rows.Activate.Select是你的错误发生的地方，因为你不能这样做.Activate.Select 。 请通读如何避免使用。select/。 .Activate ，然后尝试以下操作：

 Sub t() ' What's this next line supposed to do? 'ActiveSheet.Range("I1:I100").AutoFilter Field:=1, Criteria1:=RGB(255, 255 _ , 0), Operator:=xlFilterCellColor With Rows("1:100").Interior .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With ActiveSheet.Range("$A$1:$G$9").AutoFilter Field:=1 End Sub