Згрупувати КОЛІР у власній групі

З RESPECT Як можна групувати за кольором? У мене стовпчик з великою кількістю кольорових числових груп. Я хочу розділити їх у макросі у власній групі за кольором. БУДЬ ЛАСКА, ДОПОМОЖІТЬ. З повагою

vba

— Суперзірка
джерело

Це можна зробити вручну (з команд стрічки) , але якщо вам потрібна VBA, виконайте ручний процес із увімкненою програмою Recorder і налаштуйте результат. Скажімо, ми починаємо з:

Запуск цього:

Sub Macro1()
    With ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields
        .Clear
        .Add(Range("A2:A23"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 255, 0)
    End With

    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:A23")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

буде виробляти:

— Студент Гері
джерело