MyTetra Share
Делитесь знаниями!
Как скрыть пустые столбцы средствами VBA?
16.03.2019
23:43
Текстовые метки: столбцы
Раздел: !Закладки - VBA - Excel - Листы

Как скрыть пустые столбцы средствами 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
Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования