宏错误 - 下一步没有对于

Question

我有以下代码来隐藏定义范围内的零值的列。不知道为什么我总是得到“Next for For”错误。谁能帮忙？谢谢。

Sub hidecolumns1() 

Dim rRange As Range 
Dim rCell As Range 

Set rRange = Worksheets("Income Statement - Rollover").Range("B54:KZ54").Cells 
'Set rRange = Selection.Cells 

    For Each rCell In rRange 
     If rCell.Text <> "" Then 
     rCell.Columns.EntireColumn.Hidden = True 
    Next rCell 

End Sub 

Answer 1

你缺少一个end if：

Sub hidecolumns1() 

Dim rRange As Range 
Dim rCell As Range 

Set rRange = Worksheets("Income Statement - Rollover").Range("B54:KZ54").Cells 
'Set rRange = Selection.Cells 

    For Each rCell In rRange 
     If rCell.Text <> "" Then 
      rCell.Columns.EntireColumn.Hidden = True 
     End If '<--- 
    Next rCell 

End Sub