Помогите пожалуйста! Использую в работе большие таблицы по несколько тысяч строк и 300 столбцов. Возникает необходимость скрывать столбцы не содержащие данных (для разных строк их бывает по 50 подряд, а затем опять данные) для удобства чтения. При этом первая строка содержит наименование столбцов (все проименованы). Нужны пара кнопок для скрытия и отображения столбцов чтобы данные шли подряд. Например с помощью автофильтра выбрано 20 строк и для них нужно скрыть те столбцы в которых нет ни одной записи кроме наименования столбца. Информацию считываем, затем возвращаем как было. Спасибо!

ActiveCell.ColumnWidth = 0 'скрыть

ActiveCell.ColumnWidth = 100 ' показать

Можно прям на панель кнопки две вытащить и на них макросы навесить

Цитата

ActiveCell.ColumnWidth = 0 'скрыть ActiveCell.ColumnWidth = 100 ' показать Можно прям на панель кнопки две вытащить и на них макросы навесить

Вопрос тебе понятен? ему нужен цикл на обработку и если столбец содержит только название то тогда скрыть.
kokos посмотри пример кода у iNot там цикл на поиск определенного значения по шаблону. ты можеш изменить условия и оставить только один цикл (там перебираются все листы книги) на один лист. А в условии поставь : если значений нет - тогда уже используй то что тебе предложил FoX.

Private sub CommandButton1_Click()
dim x,y, as integer
For a = 2 to 100 - по количеству строк
for b = 2 to 300 - по кличеству столбцов
if Cells(a,b) <> "" then exit sub
else
ActiveCell.ColumnWidth = 0 'скрыть
ActiveCell.ColumnWidth = 100 ' показать
end if
next b
next a
end sub

Приблизительно так - хотя не проверял на практике )))) Удачи

Цитата

Private sub CommandButton1_Click() dim x,y, as integer For a = 2 to 100 - по количеству строк ' А если файл в динамике и постоянно редактируется ?? for b = 2 to 300 - по кличеству столбцов' постоянно залезать в циклы и править ? if Cells(a,b) <> "" then exit sub ' В условии можно использовать не сами ячейки , а весь диапазон столбца else  ' так просто будет быстрее...... , а если значения будут на 200 строке ... тогда то закроем то откроем  ActiveCell.ColumnWidth = 0 'скрыть ' а тут ..  сначала скрываем  и тут же показываем ... ActiveCell.ColumnWidth = 100 ' показать end if next b next a end sub

Ну я так думаю , что если давать код то нужно самому его обкатать ( каюсь и у меня такие грехи были)
Ну а вообще направление правильное, я так думаю что и автор уже понял как эту проблему решить.
Удачи Вам !!!

Alles Да знаю-знаю.......у меня просто времени не было.......ди и в конце-концов просто идею (алгоритм) хотел показать.......))))