| Цитата | 
|---|
|  написал: берете прекрасный пример, меняете слово Rows на Columns и готово  | 
| Код | 
|---|
Sub Hide1() Dim cell As Range Application.ScreenUpdating = False 'отключаем обновление экрана для ускорения For Each cell In ActiveSheet.UsedRange.Rows(1).Cells 'проходим по всем ячейкам первой строки If cell.Value = "*" Then cell.EntireColumn.Hidden = True 'если в ячейке x - скрываем столбец Next Application.ScreenUpdating = True End Sub Sub Show() Columns.Hidden = False 'отменяем все скрытия строк и столбцов Rows.Hidden = False End Sub  | 
Но не работает. Помогите исправить пожалуйста
					Изменено:						 - 19.11.2022 13:38:43