数据透视表/图表Excel中的组和颜色代码类别

Question

我在数据透视表中有如下数据：

我想将数据分组，如方括号中所示（所有1、2和3s在一起），而无需合并数据，并采用理想的颜色编码，而不是目前是随机颜色。有没有办法做到这一点？我遇到了很多问题，最终手动修复了图形，因此希望节省一些时间！

Answer 1

我使用了PeterT评论中概述的关键思想，但是您不需要它。您可以简单地更改if then测试以查找指示分组的标记。在这种情况下，奇怪的是，如果名称为1.1或1-1.1 LOL，则无论有没有键left（text，1），我的测试都可以工作     显式期权     子main（）         昏暗的工作表             设置ws = ActiveSheet

    Dim chrt As ChartObject
        Set chrt = ws.ChartObjects(1)

    Dim collObj As Series

    For Each collObj In chrt.Chart.SeriesCollection
        If Left(collObj.Name, 1) = 1 Then
            collObj.Format.Line.ForeColor.RGB = RGB(255, 0, 0)
        ElseIf Left(collObj.Name, 1) = 2 Then
            collObj.Format.Line.ForeColor.RGB = RGB(0, 255, 0)
        ElseIf Left(collObj.Name, 1) = 3 Then
            collObj.Format.Line.ForeColor.RGB = RGB(0, 0, 255)
        End If
    Next collObj
End Sub