Как скрыть пустые столбцы средствами VBA?

Программное скрытие макросом VBA

Пустые столбцы в Excel можно скрыть и средствами VBA. При этом не нужно тратить время и усилия на поиски пустых столбцов, процедура, написанная на Visual Basic for Applications все это сделает за Вас. Ниже приведен листинг процедуры, скрывающей пустые столбцы в используемом диапазоне активного рабочего листа. Напомню, что используемым называется диапазон, начинающийся первой заполненной и заканчивающийся последней заполненной ячейкой. 

Sub Skryt_Pustye_Stolbtsy()

Dim c As Long, FirstColumn As Long, LastColumn As Long

FirstColumn = ActiveSheet.UsedRange.Column

LastColumn = ActiveSheet.UsedRange.Columns.Count - 1 + ActiveSheet.UsedRange.Column

    For c = LastColumn To FirstColumn Step -1

        If Application.CountA(Columns(c)) = 0 Then

            Columns(c).Hidden = True

        End If

    Next c

End Sub