MS Excel VBA 代码创建隐藏/删除规则

MS Excel VBA 代码创建隐藏/删除规则

我正在寻求使用 VBA 在 Excel 上完成简单任务的帮助。

我正在尝试完成的并且能对我的工作有很大帮助的是创建一个简单的规则,它可以做如下的事情:

For Each c In Range("Row(2))
If c.Value = 0 Then
    c.EntireColumn.Hidden = True
ElseIf c.Value = >0 Then
    c.EntireColumn.Hidden = False
End If

我的目标很简单,就是当第 2 行的第 2 行等于零时,使整列隐藏。

提前致谢。

答案1

您可以尝试以下方法:

Sub hide()
Application.Calculation = xlManual
ActiveSheet.Cells.EntireColumn.Hidden = False

'600 represents 600 columns, adjust to suit your range
For i = 1 To 600

If InStr(Cells(2, i).Value, "0") And Columns(i).Hidden = False Then
    Columns(i).Hidden = True

End If

Next i

Application.Calculation = xlAutomatic

End Sub

相关内容