Забудь про группировку столбцов в Excel

Привет друзья!
Сегодня заменим стандартную группировку столбцов на собственную.

Неспокойно...
В vk отъезжаю понемногу
И совсем немного в телегу
Лучше подписаться пока не потерялись совсем.

Ты можешь спросить: А что не так с обычной группировкой?
Она неудобная, Занимает много места или ей трудно управлять?
Да. Причем ДА по всем пунктам.
А еще она бесит. И это главное основание для замены.

Что делаем?
У нас есть прекрасное форматирование, которое называется «Выровнять по центру выделения».
Для столбцов, которые мы планируем сгруппировать задаем это форматирование и даем подходящие имена группам столбцов.
Наша идея состоит в том чтобы при двойном щелчке по этому полю подчиненные столбцы разворачивались и сворачивались вот так.
Смотри: Сворачивается и разворачивается, Входит и выходит…
Что делаем.
Жмем на ярлыке листа правую кнопку и выбираем «Просмотреть код».
В открывшемся окне сверху и слева выбираем надпись WorkSheet.
А справа выбираем Бефор Даббл Клик.
Это создаст шаблон обработки события двойного щелчка на листе.
Между началом и концом процедуры обработки вставляем вот этот текст.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.HorizontalAlignment = 7 Then
y = Target(1, 1).Row
i = Target(1, 1).Column
While Cells(y, i) = "" And Cells(y, i).HorizontalAlignment = 7
i = i - 1
Wend
j = i + 1
While Cells(y, j) = "" And Cells(y, j).HorizontalAlignment = 7
j = j + 1
Wend
If Cells(Target.Row, j - 1) = "" Then
Range(Replace(Replace(Cells(1, i + 1).Address, "1", ""), "$", "") & ":" & Replace(Replace(Cells(1, j - 1).Address, "1", ""), "$", "")).EntireColumn.Hidden = Not Range(Replace(Replace(Cells(1, i + 1).Address, "1", ""), "$", "") & ":" & Replace(Replace(Cells(1, j - 1).Address, "1", ""), "$", "")).EntireColumn.Hidden
Cancel = True
End If
End If
End Sub

[OleksiiBoiev]

Очень интересно. Для внутренних файлов отличное решение.
Для выходных форм допишу макрос, который пробежит и такие места заменит на стандартную группировку.

[hjkkltw]

Большое спасибо автору за интересную тему и ссылку на файл на Диске

[kubnmyv]

как делать такую групировку строк ? какой скрипт ?

[bbycqsw]

Бог Excelя😍 видео Монтаж 🔥🔥🔥 стэндап 👏👏👏 вижу что, что то крутое объясняете в каждом видео, но не пойму что 😂 просто смотрю 😃

[antonmostovik]

Добрый день! Тема интересная, пришёл на работу и сразу захотелось затестить, но увы мне не подходит, т.к. при группировке у меня оставался столбец итогов по каждому месяцу, а здесь остаётся столбец с первым днём месяца, не жизненная функция к сожалению! :(

[yakovlevolegg]

ЭТО ХОРОШАЯ ИДЕЯ - но и от стандартной группировки нет смыла отказываться. А ГДЕ ГРУППИРОВКА СТРОК - ТАКИМ ЖЕ СПОСОБОМ ???