Привет всем! Нашел в интернете функцию для скрытия строк с пустыми ячейками
Функция очень долго работает, т.к. много обрабатываемых ячеек.
На странице создал ячейку А13 с подсчетом заполненных ячеек, как ее вставить с таким смыслом [L21:L(A13)].Cells??
Код |
---|
Sub тест() Dim cell As Range: Application.ScreenUpdating = False For Each cell In [L21:L1000].Cells If cell.Find("*", , xlValues, xlPart) Is Nothing Then cell.EntireRow.Hidden = True End If Next cell End Sub |
На странице создал ячейку А13 с подсчетом заполненных ячеек, как ее вставить с таким смыслом [L21:L(A13)].Cells??