excel - 隐藏范围中的最后一列并清除单元格

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