如何在条形图中仅显示条件格式色阶？管道勘测数据可视化

核心思路 #

把条件格式的色阶规则转化为图表可识别的颜色值，通过辅助列计算每个数据对应的RGB颜色，再用VBA批量设置条形图的填充色，最终只保留颜色块与位置标签。

具体步骤 #

1. 提取色阶的RGB参数 #

选中已设置色阶的单元格区域，右键选条件格式→管理规则，记录色阶临界点的RGB值（比如最小值对应蓝色RGB(0,112,192)、中间值对应黄色RGB(255,255,0)、最大值对应红色RGB(255,0,0)）。

2. 新增辅助列计算对应RGB值 #

假设电流密度数据在B列，新增C、D、E三列分别存储R、G、B值：

• 在C2单元格输入公式（以双色阶为例），计算当前数据的红色分量：

  =ROUND(R最小值 + (R最大值 - R最小值)*PERCENTRANK.INC($B$2:$B$1000,B2),0)
  

• 同理复制公式到D2（绿色分量）、E2（蓝色分量），下拉填充至所有数据行。
  如果是三色阶，需先判断数据是否处于中间值区间，再分两段插值计算RGB

3. 准备图表用的辅助数据 #

新增F列，所有单元格输入1——统一用固定值生成等高度的条形，只保留颜色差异。

4. 创建条形图并批量设置颜色 #

• 选中位置列（A列）和F列数据，插入簇状条形图。
• 按Alt+F11打开VBA编辑器，插入模块，粘贴以下代码（根据实际图表名称、列范围修改）：

  Sub SetBarColors()
      Dim cht As Chart
      Dim ser As Series
      Dim i As Integer
      Set cht = ActiveSheet.ChartObjects("图表 1").Chart '替换为你的图表名称
      Set ser = cht.SeriesCollection(1)
      For i = 1 To ser.Points.Count
          ser.Points(i).Format.Fill.ForeColor.RGB = RGB(Cells(i+1,3).Value, Cells(i+1,4).Value, Cells(i+1,5).Value) 'C、D、E列为RGB值，i+1对应数据起始行
      Next i
  End Sub
  

• 运行代码，所有条形将匹配原条件格式的色阶颜色。

5. 简化图表显示 #

• 隐藏横轴（数值轴）、图例，调整纵轴（位置轴）标签大小，压缩条形间距，最终只保留颜色块与位置标识。

大数据量替代方案 #

如果数据达数万行，可将数据导入Power Query整理后，在Power BI中直接创建条形图，通过条件格式设置颜色基于电流密度的色阶，无需手动计算RGB，操作更高效。

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