隱藏範圍和清除單元格中的最後一列

Question

我有一個清單工作簿，允許您檢查工作單中的多個項目。最大數量的項目是15.我有一段代碼，可以讓我隱藏列，從最右邊開始，這是不需要的，但無法弄清楚如何清除列中將被隱藏的範圍。我需要清除將要隱藏的列的行7,10,& 13:28中的數據。

以下是我有：

Sub RemoveItem() 
Dim i As Long 
For i = 20 To 7 Step -1 
    If Columns(i).Hidden = False Then 
     bfirst = True 
     Columns(i).Hidden = True 
     Exit For 
    End If 
Next 
End Sub 

任何幫助將不勝感激，謝謝！

Answer 1

這大概可以做的更好，但下面的代碼將完成這項工作：

Sub test() 

Dim i As Long 

For i = 20 To 7 Step -1 
    If Columns(i).Hidden = False Then 
     bfirst = True 
     Columns(i).Hidden = True 
     Rows(7).ClearContents 
     Rows(10).ClearContents 
     Range(Cells(13, i), Cells(28, i)).ClearContents 
    End If 
Next 

End Sub