Agrupar por COR no próprio grupo

Question

Com RESPEITO Como pode agrupar por cor? Eu tenho uma coluna com um monte de grupo numérico colorido. Eu quero separá-los dentro de uma macro em seu próprio grupo por cor. POR FAVOR AJUDE. RESPEITA

    

Answer 1

Você pode fazer isso manualmente (dos comandos da faixa de opções) , mas se precisar do VBA, faça o processo manual com o gravador ligado e ajuste o resultado. Digamos que começamos com:

Executandoisso:

SubMacro1()WithActiveWorkbook.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

produzirá: