Случайно спрятал все столбцы с макросом, как мне их вернуть?

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

Я забыл заменить FullColumn на AllRow перед запуском.

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 

С наилучшими пожеланиями

xsisec