MyTetra Share
Делитесь знаниями!
Как скрыть пустые строки средствами VBA?
Время создания: 16.03.2019 23:43
Текстовые метки: скрыть пустые строки
Раздел: !Закладки - VBA - Excel - Листы
Запись: xintrea/mytetra_db_adgaver_new/master/base/1518974704dtg5er2dee/text.html на raw.githubusercontent.com

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

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

Теперь речь пойдет о том как программно скрыть пустые строки макросом. Возьмем процедуру, при помощи которой мы уже удаляли пустые строки и внесем в её программный код небольшие изменения. Заменим команду Rows(r).Delete на Rows(r).Hidden = True 


Sub Skryt_Pustye_Stroki()

Dim r As Long, FirstRow As Long, LastRow As Long

FirstRow = ActiveSheet.UsedRange.Row

LastRow = ActiveSheet.UsedRange.Rows.Count - 1 + ActiveSheet.UsedRange.Row

For r = LastRow To FirstRow Step -1

If Application.CountA(Rows(r)) = 0 Then

Rows(r).Hidden = True

End If

Next r

End Sub

Так же в этом разделе:
 
MyTetra Share v.0.58
Яндекс индекс цитирования