VBA基于单元格颜色为柱状图着色问题：仅单月条形生效

你的代码只处理了图表的第一个数据系列（SeriesCollection(1)），但包含两个月数据的图表通常对应两个独立的数据系列（比如第一个月是Series1，第二个月是Series2），因此第二个月的条形没被遍历着色。

方案1：针对固定两个系列单独处理 #

适合明确知道图表只有两个数据系列的场景，代码可直接对应两列颜色单元格：

Sub ColorChartBars()
    Dim chrt As Chart
    Dim rngMonth1 As Range, rngMonth2 As Range
    Dim i As Long
    
    Set chrt = ActiveSheet.ChartObjects(1).Chart
    ' 对应两个月的颜色单元格范围（根据你的数据调整列）
    Set rngMonth1 = ActiveSheet.Range("B2:B27")
    Set rngMonth2 = ActiveSheet.Range("C2:C27")
    
    ' 为第一个月的条形着色
    For i = 1 To rngMonth1.Cells.Count
        chrt.SeriesCollection(1).Points(i).Format.Fill.ForeColor.RGB = _
            rngMonth1.Cells(i).Interior.Color
    Next i
    
    ' 为第二个月的条形着色
    For i = 1 To rngMonth2.Cells.Count
        chrt.SeriesCollection(2).Points(i).Format.Fill.ForeColor.RGB = _
            rngMonth2.Cells(i).Interior.Color
    Next i
End Sub

方案2：自动遍历所有系列 #

如果后续可能增加更多月份数据，用这个方案更灵活，自动匹配所有数据系列和对应颜色列：

Sub ColorAllChartSeries()
    Dim chrt As Chart
    Dim rngColor As Range
    Dim seriesIdx As Long, pointIdx As Long
    
    Set chrt = ActiveSheet.ChartObjects(1).Chart
    ' 颜色单元格范围，每列对应一个数据系列（从B列开始到对应月份列）
    Set rngColor = ActiveSheet.Range("B2:C27")
    
    ' 遍历每个数据系列
    For seriesIdx = 1 To chrt.SeriesCollection.Count
        ' 遍历当前系列的每个数据点
        For pointIdx = 1 To chrt.SeriesCollection(seriesIdx).Points.Count
            chrt.SeriesCollection(seriesIdx).Points(pointIdx).Format.Fill.ForeColor.RGB = _
                rngColor.Columns(seriesIdx).Cells(pointIdx).Interior.Color
        Next pointIdx
    Next seriesIdx
End Sub

额外注意事项 #

• 如果单元格颜色是通过条件格式设置的，需要把代码中的Interior.Color替换为DisplayFormat.Interior.Color，否则无法获取条件格式生成的颜色。
• 确保数据系列的点数和对应颜色列的单元格数量完全一致，避免循环时出现下标越界错误。

内容的提问来源于stack exchange，提问作者user27934422