Question

我有一份清单工作簿，可让您检查工作单中的多个项目。最大项目数为15.我有一段代码可以让我隐藏从最右边开始的列，这些列不是必需的，但无法弄清楚如何清除将隐藏的列中的范围。我需要清除第7,10行和第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

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

1 个答案: