макросом (чтобы скрыть План):
соответственно, чтобы скрыть Факт, заменяете в тексте макроса "План" на "Факт"
Код |
---|
Sub HidePlan()
Application.ScreenUpdating = False ' отключаем обновление экрана
Dim col As Range, nextcol As Range
ТекстДляПоиска = "План" ' будем скрывать столбцы с таким текстом
' перебираем все столбцы на листе
For Each col In ActiveSheet.UsedRange.Columns
' если в столбце найден искомый текст
If Not col.Find(ТекстДляПоиска, , xlFormulas, xlPart) Is Nothing Then
' добавляем столбец в диапазон для скрытия
If nextcol Is Nothing Then Set nextcol = col Else Set nextcol = Union(nextcol, col)
End If
Next
'если подходящие столбцы найдены - скрываем их
If Not nextcol Is Nothing Then nextcol.EntireColumn.Hidden = True
Application.ScreenUpdating = True
End Sub |