通过范围和隐藏列VBA循环

Question

我今天病得很重，而且在VBA很新 - 不是成功的秘诀。我试图在（水平）范围内循环遍历每个单元格，如果单元格内的文本为FALSE，那么我想隐藏该列。这是我到目前为止所得到的：

Dim rRange As Range
Dim rCell As Range
rRange = Worksheets("Data").Range("W7:AH7").Cells

For Each rCell In rRange
        If rCell.Value = "FALSE" Then rCell.Columns.EntireColumn.Hidden = True
Next rCell
End Sub

我收到错误“对象变量或未设置块变量”。请有人指出我哪里出错了？感谢。

Answer 1

使用此

set rRange = Worksheets("Data").Range("W7:AH7").Cells 

和

If Ucase(rCell.Value) = "FALSE" Then rCell.Columns.EntireColumn.Hidden = True 

对象变量需要设置为创建实例，“FALSE”＆lt;＆gt; “false”，使用Ucase来忽略差异。

[]的