Как изменить группировку колонок с условием
Код:
If ActiveSheet.Columns.OutlineLevel = 1 Then
ActiveSheet.Outline.ShowLevels ColumnLevels:=2
ElseIf ActiveSheet.Columns.OutlineLevel = 2 Then
ActiveSheet.Outline.ShowLevels ColumnLevels:=1
End If
ActiveSheet.Outline.ShowLevels ColumnLevels:=2
ElseIf ActiveSheet.Columns.OutlineLevel = 2 Then
ActiveSheet.Outline.ShowLevels ColumnLevels:=1
End If