Скрытые столбцы

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Аватара пользователя
AlexZZZ
Сообщения: 237
Зарегистрирован: 01 июн 2007, 00:27
Откуда: Москва и область

Здравствуйте, коллеги! Посоветуйте, пожалуйста, как кодом можно скопировать лист, исключив скрытые столбцы или быстро удалить эти скрытые столбцы с листа? Столбцов этих много и даже кодом находить и последовательно удалять их получается долго.
Pavel55
Сообщения: 418
Зарегистрирован: 20 окт 2006, 11:40
Откуда: Moscow

Точно не знаю, попробуйте так

Код: Выделить всё

Sub Macro1()
    ActiveSheet.UsedRange.Cells.SpecialCells(xlVisible).Copy Destination:=Sheets("Лист2").[A1]
End Sub
tolikt
Сообщения: 93
Зарегистрирован: 29 окт 2005, 12:33
Откуда: NewVasюbirsk

В таких случаях лучше не заморачиваться с макросом.
Проще вывести на панель инструментов "Правка" значок "Выделить видимые ячейки".
И копировать выделенные видимые ячейки.
Плюс - удобство. Минус - копируется целиком весь лист и иногда (если на исходном листе много формул) на пару секунд подтормаживает.

Excel 97.
Dim_ok
Сообщения: 51
Зарегистрирован: 03 июл 2007, 09:17

или если Павел позволит немного исправить

Код: Выделить всё

Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Лист2").[A1]
Pavel55
Сообщения: 418
Зарегистрирован: 20 окт 2006, 11:40
Откуда: Moscow

Я только "ЗА!" ))
Аватара пользователя
AlexZZZ
Сообщения: 237
Зарегистрирован: 01 июн 2007, 00:27
Откуда: Москва и область

Спасибо, всем большое! Так, конечно, намного быстрее!
Ответить