![意外使用宏隐藏了所有列,我该如何恢复它们?](https://linux22.com/image/1488625/%E6%84%8F%E5%A4%96%E4%BD%BF%E7%94%A8%E5%AE%8F%E9%9A%90%E8%97%8F%E4%BA%86%E6%89%80%E6%9C%89%E5%88%97%EF%BC%8C%E6%88%91%E8%AF%A5%E5%A6%82%E4%BD%95%E6%81%A2%E5%A4%8D%E5%AE%83%E4%BB%AC%EF%BC%9F.png)
我尝试点击左上角以选择所有内容,然后右键单击并选择“取消隐藏”。它没有任何反应。
请帮我找回我的工作表!
这是宏:
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。
答案1
尝试:
Sub SeeAll()
Range("1:1").EntireColumn.Hidden = False
End Sub
这应该恢复全部列可见性。
答案2
呼,通过手动运行以下命令修复了此问题:
Sub Test()
Range("3:8").Select
Selection.EntireColumn.Hidden = False
End Sub
答案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
此致
安全中心