嘿，这个问题我之前帮好几个同事解决过！Excel默认的图表颜色是绑定位置的，排序后自然就乱了，要让颜色跟着分类名称走，得用点小技巧，下面给你两种靠谱的方法：

方法一：用VBA宏自动匹配颜色（最直接稳定） #

这种方法是让Excel每次数据更新/排序后，自动扫描图表里的每个数据点，根据分类名称设置对应的颜色，步骤如下：

1. 打开你的Excel文件，按下 Alt + F11 打开VBA编辑器
2. 在左侧的项目窗口里，找到你的目标工作表（比如Sheet1），双击打开它的代码窗口
3. 粘贴下面的代码：

Sub SetBarColors()
    Dim cht As ChartObject
    Dim srs As Series
    Dim i As Integer
    
    ' 假设你的图表是工作表上的第一个图表，多个图表可修改索引（比如ChartObjects(2)）
    Set cht = ActiveSheet.ChartObjects(1)
    
    For Each srs In cht.Chart.SeriesCollection
        For i = 1 To srs.Points.Count
            ' 获取当前数据点对应的分类名称
            Dim catName As String
            catName = cht.Chart.Axes(xlCategory).Categories(i)
            
            ' 根据名称设置对应颜色，RGB值可自行调整
            Select Case catName
                Case "City"
                    srs.Points(i).Format.Fill.ForeColor.RGB = RGB(128, 0, 128) ' 紫色
                Case "Street"
                    srs.Points(i).Format.Fill.ForeColor.RGB = RGB(0, 0, 255) ' 蓝色
                Case Else
                    srs.Points(i).Format.Fill.ForeColor.RGB = RGB(0, 128, 0) ' 绿色
            End Select
        Next i
    Next srs
End Sub

4. 保存文件时选择**启用宏的工作簿（.xlsm）**格式
5. 让宏自动触发：在同一个代码窗口里，粘贴下面的代码，这样只要数据区域（比如A:B列）发生变化（包括自动排序），宏就会自动运行：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 限制仅在数据区域变化时触发，可根据你的实际数据范围修改
    If Not Intersect(Target, Range("A:B")) Is Nothing Then
        Call SetBarColors
    End If
End Sub

设置完后，不管数据怎么排序，City的条形永远是紫色，Street永远是蓝色，其他分类全是绿色，完全不用手动调整！

方法二：用辅助列+条件格式（无宏方案） #

如果你不想启用宏，也可以用辅助列配合图表的“按值着色”功能，步骤稍繁琐但适合禁用宏的场景：

1. 在数据旁新增一列（比如C列），命名为「颜色代码」
2. 在C2单元格输入公式（假设A列是分类名称列）：

=IF(A2="City",1,IF(A2="Street",2,3))

这里用1、2、3分别对应City、Street和其他分类，下拉填充到所有数据行
3. 选中条形图，右键点击任意条形选择「数据系列格式」
4. 在右侧面板中，找到「填充线条」→「填充」→「按值着色」，将值范围关联到C列的颜色代码，手动设置每个代码对应的颜色（1=紫色，2=蓝色，3=绿色）

不过这个方法有个小缺点：如果新增了分类名称，需要手动更新辅助列的公式和颜色映射，但胜在无需启用宏。

小提示：如果你的自动排序是通过Excel表格的自动排序、筛选排序实现的，方法一的宏都能完美适配，完全不用手动触发~

备注：内容来源于stack exchange，提问作者EsScott