Скрытые столбцы
Модератор: Naeel Maqsudov
Здравствуйте, коллеги! Посоветуйте, пожалуйста, как кодом можно скопировать лист, исключив скрытые столбцы или быстро удалить эти скрытые столбцы с листа? Столбцов этих много и даже кодом находить и последовательно удалять их получается долго.
Точно не знаю, попробуйте так
Код: Выделить всё
Sub Macro1()
ActiveSheet.UsedRange.Cells.SpecialCells(xlVisible).Copy Destination:=Sheets("Лист2").[A1]
End Sub
В таких случаях лучше не заморачиваться с макросом.
Проще вывести на панель инструментов "Правка" значок "Выделить видимые ячейки".
И копировать выделенные видимые ячейки.
Плюс - удобство. Минус - копируется целиком весь лист и иногда (если на исходном листе много формул) на пару секунд подтормаживает.
Excel 97.
Проще вывести на панель инструментов "Правка" значок "Выделить видимые ячейки".
И копировать выделенные видимые ячейки.
Плюс - удобство. Минус - копируется целиком весь лист и иногда (если на исходном листе много формул) на пару секунд подтормаживает.
Excel 97.
или если Павел позволит немного исправить
Код: Выделить всё
Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Лист2").[A1]
Я только "ЗА!" ))
Спасибо, всем большое! Так, конечно, намного быстрее!