遍历范围和隐藏列VBA

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

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 

我得到错误“对象variables或块variables未设置”。 请有人指出我要去哪里错了？ 谢谢。

Answer 1

用这个

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

和

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

对象variables需要设置为创build一个实例，而“FALSE”<>“false”，使用Ucase忽略差异。

[]的