按颜色分组

Question

尊重 如何按颜色分组？我有一列有很多彩色数字组。我想在宏中按颜色将它们分开。请帮忙。问候

Answer 1

您可以手动执行此操作（来自 Ribbon 命令），但如果您需要 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

将产生：