我来帮你拆解这个问题，核心是动态数据源下图表系列的自动适配加上指定公司的颜色固定，咱们一步步来解决：

一、让图表自动跟随动态数据源更新 #

你的数据源是LOOKUP返回的隐藏空值行的动态表格，切换国家后系列数量和顺序都会变，默认图表没法自动识别，这里推荐两种靠谱方案：

方案1：用名称管理器定义动态数据范围 #

1. 先给你的动态表格创建两个动态名称：
   • 定义SeriesNames：引用参与者名称列（假设名称在A列，表头是A1），用OFFSET自动计算非空行数量：

     =OFFSET(Sheet1!$A$2,0,0,COUNTA(Sheet1!$A:$A)-1,1)
     

     这个公式会自动排除表头，只统计有内容的名称行。
   • 定义SeriesValues：引用数值区域（假设数值从B列开始到最后一列）：

     =OFFSET(Sheet1!$B$2,0,0,COUNTA(Sheet1!$A:$A)-1,COUNTA(Sheet1!$1:$1)-1)
     

2. 插入堆积面积图后，修改数据系列引用：
   • 右键图表→「选择数据」→「添加」，系列名称选择SeriesNames，系列值选择SeriesValues对应的列；后续切换国家时，图表会自动加载新系列、移除空值对应的无效系列。

方案2：用Excel正式表格绑定图表 #

1. 把动态数据源转换成Excel表格：选中数据区域→按Ctrl+T→勾选「我的表格有标题」。
2. 设置表格忽略隐藏行：右键表格→「表格属性」→取消勾选「包含隐藏的行和列」，这样LOOKUP隐藏空值行后，表格会自动收缩范围。
3. 直接把表格数据拖入图表，之后切换国家时，图表会同步表格的动态变化，系列数量和顺序自动更新。

二、固定特殊公司的系列颜色 #

你有辅助列返回标识值标记特殊公司，这里用VBA宏来自动设置颜色，避免每次切换国家后颜色混乱：

1. 按Alt+F11打开VBA编辑器，插入模块，粘贴以下代码：

   Sub SetSeriesColors()
       Dim ws As Worksheet
       Dim cht As ChartObject
       Dim ser As Series
       Dim lastRow As Long
       Dim i As Long
       
       Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换成你的工作表名称
       Set cht = ws.ChartObjects("Chart 1") ' 替换成你的图表名称
       lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
       
       ' 遍历每个数据系列，匹配辅助列颜色规则
       For Each ser In cht.Chart.SeriesCollection
           For i = 2 To lastRow
               If ws.Cells(i, "A").Value = ser.Name Then
                   ' 假设辅助列在C列，根据标识设置颜色
                   Select Case ws.Cells(i, "C").Value
                       Case "重点关注"
                           ser.Format.Fill.ForeColor.RGB = RGB(255, 0, 0) ' 红色
                       Case "合作伙伴"
                           ser.Format.Fill.ForeColor.RGB = RGB(0, 255, 0) ' 绿色
                       ' 可添加更多标识对应的颜色
                       Case Else
                           ' 非特殊标记保持图表默认颜色
                   End Select
                   Exit For
               End If
           Next i
       Next ser
   End Sub
   

2. 设置自动触发：把宏绑定到参数切换控件（比如下拉菜单），或者用工作表Change事件，当参数单元格（假设是D1）变化时自动执行：

   Private Sub Worksheet_Change(ByVal Target As Range)
       If Not Intersect(Target, Me.Range("D1")) Is Nothing Then
           Call SetSeriesColors
       End If
   End Sub
   

这样每次切换国家，图表更新后，特殊公司的颜色会自动设置成你想要的样式。

三、处理表格空白区域的问题 #

如果动态表格存在空白区域，可能导致图表出现空系列，你可以：

• 优化LOOKUP函数，改用INDEX+MATCH组合，确保只返回有数据的行，比如：

  =INDEX(数据源区域,MATCH(国家参数,国家列,0),COLUMN())
  

• 或者在定义动态名称时，用COUNTA精准统计非空行，避免包含空白行。

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