Excel图表数据：含嵌入公式的命名范围使用问题

你遇到的问题其实是VBA默认不会自动重新计算动态命名范围的完整公式，直接用Range("chart_Frequency")只会读取当前解析到的单个单元格引用。这里有两个可靠的解决方案，能完美复现手动操作的效果：

方案1：直接赋值命名范围的完整引用字符串（最贴近手动操作） #

你手动设置时用的是Home!chart_Frequency这种带工作表前缀的命名范围引用，在VBA里直接把这个字符串赋值给Values和XValues即可——Excel会像手动操作一样自动解析动态范围的完整区域：

With ActiveChart.SeriesCollection(1)
    .Values = "Home!chart_Frequency"
    .XValues = "Home!chart_Dates"
End With

这个方法逻辑简单，和你手动操作的流程完全一致，几乎不会出错。

方案2：通过Names对象获取动态计算后的完整范围 #

如果需要更灵活地操作范围，可以用Names对象显式获取命名范围的实际引用区域，确保VBA拿到的是动态计算后的完整数据：

With ActiveChart.SeriesCollection(1)
    .Values = ThisWorkbook.Names("chart_Frequency").RefersToRange
    .XValues = ThisWorkbook.Names("chart_Dates").RefersToRange
End With

注意：如果你的命名范围是工作表级（而非工作簿级），需要改成Worksheets("Home").Names("chart_Frequency").RefersToRange来精准引用。

额外优化：避免依赖ActiveChart #

为了让代码更稳定，建议直接引用具体的图表对象，而不是依赖当前激活的图表（避免激活状态变化导致的错误）：

' 假设目标图表在Home工作表，名称为"Chart 1"
With ThisWorkbook.Worksheets("Home").ChartObjects("Chart 1").Chart.SeriesCollection(1)
    .Values = "Home!chart_Frequency"
    .XValues = "Home!chart_Dates"
End With

以上两种方案都能让图表正确读取动态命名范围的完整日期和频率数据，和手动设置的效果完全一致。

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