а как завязать макрос на одну кнопку,

[Евгений_39]

как завязать макрос на одну кнопку, которая бы не только скрывала нужные колонки но и при повторном нажатии отобразила все ячейки(строки и колонки)
см влож файл

Option Explicit
Sub скрыть_столбцы()
Dim i&
For i = 6 To 47
If Cells(5, i) = 0 Then Cells(1, i).EntireColumn.Hidden = True
Next i
End Sub

Private Sub CommandButton1_Click()

End Sub

[DiemonStar]

Sub скрыть_столбцы()
Dim i&
For i = 6 To 47
If Cells(5, i) = 0 Then _
  Cells(1, i).EntireColumn.Hidden = Not Cells(1, i).EntireColumn.Hidden
Next i
End Sub

Private Sub CommandButton1_Click()
  скрыть_столбцы
End Sub

можно попробовать так (не проверял)

[Казанский]

Option Explicit

Sub скрыть_столбцы()
Dim i&
Application.ScreenUpdating = False
For i = 6 To 47
    If Cells(5, i) = 0 Then Columns(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton1_Click()
With CommandButton1
    If .Caption = "Скрыть нули" Then
        скрыть_столбцы
        .Caption = "Отобразить все"
    Else
        Cells.EntireRow.Hidden = False
        Cells.EntireColumn.Hidden = False
        .Caption = "Скрыть нули"
    End If
End With
End Sub

[Евгений_39]

спасибо, все получилось