Исключить из диапазона скрытые столбцы

Пользователь

Сообщений: 83 Регистрация: 01.01.1970

13.10.2021 00:44:09

Здравствуйте
В диапазоне "CH:DE,DF:EC", есть несколько скрытых столбцов
как их найти и исключить из диапазона

Код
Range("CH:DE,DF:EC").ColumnWidth = 6

всем столбцам в диапазоне делаем ширину 6, кроме скрытых столбцов

Пользователь

Сообщений: 1201 Регистрация: 16.03.2016

13.10.2021 02:44:32

sashgera, Здравствуйте, вариант

Код
Range("CH:EC").SpecialCells(xlCellTypeVisible).ColumnWidth = 6

sashgera Пользователь Сообщений: 83 Регистрация: 01.01.1970	#3 13.10.2021 03:15:56 Александр П., спасибо!!!