循环遍历范围并隐藏列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

使用 this

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

和

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

需要设置的对象变量来创建实例，并且“FALSE”<> “false”，使用 Ucase 忽略差异。

[]的