Да практически на пару букв. В прошлом примере мы считали к-во заполненых в строках типа:
If WorksheetFunction.counta(Range(Cells(3, i), Cells(lr, i))) = 0 Then Columns(i).Hidden = True
теперь WorksheetFunction.Sum сумма значений строки, колонки. Можно еще:
If Application.Sum(Range(Cells(3, i), Cells(lr, i))) = 0 Then Columns(i).Hidden = True
В нашем случае одно и тоже.
М-да. Олег, нормальные люди после праздника пьяные спят, а Вам-то чего не спится?
Про каждую строчку... ну уж простите, зело ленив я. Даже для себя комментов не пишу. И ликбез онлайн - это не мое. Сорри.
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
Я сам - дурнее всякого примера! ...