我正在寻求使用 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