Страница 1 из 1
Скрытые столбцы
Добавлено: 21 янв 2008, 17:25
AlexZZZ
Здравствуйте, коллеги! Посоветуйте, пожалуйста, как кодом можно скопировать лист, исключив скрытые столбцы или быстро удалить эти скрытые столбцы с листа? Столбцов этих много и даже кодом находить и последовательно удалять их получается долго.
Re: Скрытые столбцы
Добавлено: 21 янв 2008, 17:50
Pavel55
Точно не знаю, попробуйте так
Код: Выделить всё
Sub Macro1()
ActiveSheet.UsedRange.Cells.SpecialCells(xlVisible).Copy Destination:=Sheets("Лист2").[A1]
End Sub
Re: Скрытые столбцы
Добавлено: 21 янв 2008, 18:18
tolikt
В таких случаях лучше не заморачиваться с макросом.
Проще вывести на панель инструментов "Правка" значок "Выделить видимые ячейки".
И копировать выделенные видимые ячейки.
Плюс - удобство. Минус - копируется целиком весь лист и иногда (если на исходном листе много формул) на пару секунд подтормаживает.
Excel 97.
Re: Скрытые столбцы
Добавлено: 21 янв 2008, 19:59
Dim_ok
или если Павел позволит немного исправить
Код: Выделить всё
Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Лист2").[A1]
Re: Скрытые столбцы
Добавлено: 21 янв 2008, 22:52
Pavel55
Я только "ЗА!" ))
Re: Скрытые столбцы
Добавлено: 22 янв 2008, 19:08
AlexZZZ
Спасибо, всем большое! Так, конечно, намного быстрее!