如何修改VBA代码实现按两列数据为Excel图表数据标签分类上色

原代码仅适配两行排列的分类/数值数据（第1行分类、第2行数值），要改成适配两列排列（A列分类、B列数值，每行对应一组数据），只修改变量名和初始值没用，核心要调整颜色取值的索引逻辑，以下是完整修改步骤和代码：

关键修改点 #

1. 把原代码中按列索引遍历的逻辑，改成按行索引遍历，因为现在每组数据对应一行
2. 调整颜色取值的单元格引用：分类颜色取A列对应行，数值/百分比颜色取B列对应行
3. 遍历图表点时，逐行递增索引，而非逐列

修改后的完整代码 #

Sub Labels_SourceCOLUMNS()
  Dim p As Point
  Dim labelItems As Variant
  Dim length As Long
  Dim color As Long
  Dim startPos As Long
  Dim categoryColorCol As Long
  Dim valueColorCol As Long
  Dim rowIndex As Long
  
  ' 设置列：A列=分类，B列=数值
  categoryColorCol = 1 
  valueColorCol = 2 
  ' 数据起始行（如果第1行是表头就设为2，无表头设为1）
  rowIndex = 2 
  
  With ActiveChart.SeriesCollection(1)
      .HasDataLabels = True
      With .DataLabels
          .ShowValue = True
          .ShowCategoryName = True
          .ShowPercentage = True
          .Separator = vbLf
          .Format.TextFrame2.TextRange.Font.Bold = False
          .NumberFormat = "#.##0,00;- #.##0,00"
          .Position = xlLabelPositionBestFit
          .Font.Name = "Arial Narrow"
          .Font.Size = 8
      End With
      
      For Each p In .Points
          labelItems = Split(p.DataLabel.Text, vbLf)
          labelItems(1) = Format(Replace(labelItems(1), ".", ","), "0.00")
          labelItems(2) = Format(Replace(labelItems(2), ".", ","), "0.00%")
          
          With p.DataLabel.Format.TextFrame2.TextRange
              ' 重新加载格式化后的标签文本
              .Text = labelItems(0) & vbLf & labelItems(1) & vbLf & labelItems(2)
              
              startPos = 1
              ' 设置分类文本的颜色和加粗
              length = Len(labelItems(0))
              color = ActiveSheet.Cells(rowIndex, categoryColorCol).Font.Color
              .Characters(startPos, length).Font.Bold = True
              .Characters(startPos, length).Font.Fill.ForeColor.RGB = color
              
              ' 设置数值文本的颜色和加粗
              startPos = startPos + length + 1
              length = Len(labelItems(1))
              color = ActiveSheet.Cells(rowIndex, valueColorCol).Font.Color
              .Characters(startPos, length).Font.Bold = True
              .Characters(startPos, length).Font.Fill.ForeColor.RGB = color
              
              ' 设置百分比文本的颜色
              startPos = startPos + length + 1
              length = Len(labelItems(2))
              color = ActiveSheet.Cells(rowIndex, valueColorCol).Font.Color
              .Characters(startPos, length).Font.Bold = False
              .Characters(startPos, length).Font.Fill.ForeColor.RGB = color
          End With
          
          ' 遍历下一行数据
          rowIndex = rowIndex + 1
      Next
  End With
End Sub

说明 #

• 代码中rowIndex的初始值根据你的数据结构调整：如果A/B列的第1行是表头，数据从第2行开始，就设为rowIndex = 2；如果没有表头，直接从第1行开始就设为rowIndex = 1
• 原代码中无用的变量已移除，简化代码结构

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