意外使用宏隐藏了所有列，我该如何恢复它们？

Question

我尝试点击左上角以选择所有内容，然后右键单击并选择“取消隐藏”。它没有任何反应。

请帮我找回我的工作表！

这是宏：

Sub HideDetails()
    Range("3:8").Select
    If Selection.EntireColumn.Hidden Then
        Selection.EntireColumn.Hidden = False
        ActiveSheet.Buttons("btnToggleDetails").Caption = "-"
    Else
        Selection.EntireColumn.Hidden = True
        ActiveSheet.Buttons("btnToggleDetails").Caption = "+"
        Range("A1").Select
        Application.CutCopyMode = False
    End If
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

我忘记在运行之前将 EntireColumn 替换为 EntireRow。

Answer 1

尝试：

Sub SeeAll()
    Range("1:1").EntireColumn.Hidden = False
End Sub

这应该恢复全部列可见性。

Answer 2

呼，通过手动运行以下命令修复了此问题：

Sub Test()
    Range("3:8").Select
    Selection.EntireColumn.Hidden = False
End Sub

Answer 3

我希望以下示例能够帮助您=)

如果只有 A(1) 列

Sub UnhideColumnOne()
  On Error Resume Next 
    Range("1:1").Select
    Selection.EntireColumn.Hidden = False
End Sub

如果所有列都为列，则应使用：

Sub Unhide_All_Columns() 
    On Error Resume Next 
     'in case the sheet is protected
    ActiveSheet.Cells.EntireColumn.Hidden = False 
End Sub 

如果你想取消隐藏所有行：

  Sub Unhide_All_Rows() 
        On Error Resume Next 
         'in case the sheet is protected
        ActiveSheet.Cells.EntireRow.Hidden = False 
    End Sub 

此致

安全中心