宏錯誤 - 下一步沒有對於

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