Question

另一个noobie问题。我试图隐藏特定工作表中第5行中的所有列，如果单元格不为空且该单元格等于0.我在一个点上工作，不使用z作为整数，但我不适合非空条件（列与一个空的第5行单元格被隐藏，因为默认值为零）。非常感谢任何帮助。单独的问题，是否有一种快速而肮脏的方式将您的工作簿重置回某个已保存的状态＆＃34;？谢谢。

Dim wsOut As Worksheet
Dim rng As Range
Dim z As Integer

Set wsOut = ThisWorkbook.Sheets("sheet2")
Set rng = wsOut.Range("B:AA")

For z = 1 To 26
    If (Not IsEmpty(wsIn.Cells(5, z))) And wsIn.Cells(5, z).Value = 0 Then
            cell.EntireColumn.Hidden = False
            cell.EntireColumn.Hidden = True
    End If
Next z

End Sub

Answer 1

好的nvm我让它变得更简单，这很有用......

Sub HideColumn()
    Dim cell As Range
    For Each cell In Range("B5:AA5")
      If cell = 0 And Not IsEmpty(cell) Then
           cell.EntireColumn.Hidden = True
       End If
   Next cell
End Sub

如果然后错误代码

1 个答案: