Group By COLOR в собственной группе

Question

С УВАЖЕНИЕМ Как можно группировать по цвету? У меня есть колонка с большим количеством цветных групп. Я хочу разделить их внутри макроса в их собственной группе по цвету. ПОЖАЛУЙСТА ПОМОГИ. С УВАЖЕНИЕМ

Answer 1

Вы можете сделать это вручную (из команд ленты), но если вам нужен VBA, то выполните ручной процесс с включенным регистратором и настройте результат. Скажем, мы начнем с:

Запуск этого:

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

будет производить: