嘿，我明白你的需求了——你想给图表的系列同时扩展X轴和Y轴的数据范围，现有代码只处理了Y值，不知道怎么操作X值对吧？其实很简单，VBA里的Series对象专门有XValues属性来控制X轴数据，和你用的Values属性控制Y轴数据是对应的。

先给你理清楚核心要点：

• 要修改X轴数据：使用Series.XValues属性
• 要修改Y轴数据：使用Series.Values属性（就是你当前用的，但可以优化下代码逻辑）

修正后的完整代码 #

我把你的代码调整了一下，同时处理X和Y数据的扩展，注释里会讲清楚每一步：

Dim targetSeries As Series
Dim formulaParts() As String
Dim originalXRange As Range
Dim originalYRange As Range
Dim newXRange As Range
Dim newYRange As Range

' 定位到目标图表和系列，避免多余的激活操作
Set targetSeries = ActiveSheet.ChartObjects("Chart 3").Chart.SeriesCollection(2)

' 拆分系列公式，获取原X、Y数据区域
formulaParts = Split(targetSeries.Formula, ",")
' 注意：Series.Formula的结构是 =SERIES(名称, X值区域, Y值区域, 系列顺序)
' 所以拆分后formulaParts(1)对应X数据区域，formulaParts(2)对应Y数据区域
Set originalXRange = Range(formulaParts(1))
Set originalYRange = Range(formulaParts(2))

' 扩展X、Y区域各增加1列（保持行数不变，列数+1）
Set newXRange = originalXRange.Resize(, originalXRange.Columns.Count + 1)
Set newYRange = originalYRange.Resize(, originalYRange.Columns.Count + 1)

' 分别赋值给X轴和Y轴数据
targetSeries.XValues = newXRange
targetSeries.Values = newYRange

关键说明 #

1. 避免冗余激活：我去掉了Activate操作，直接通过对象引用定位图表和系列，这样代码更健壮，不会因为切换窗口导致执行出错。
2. 公式拆分逻辑：一定要牢记SERIES公式的结构，拆分后的数组元素对应关系不能搞混，否则会引用错误的数据源。
3. Resize的用法：Resize(行数量, 列数量)这里我们固定行数，只修改列数，刚好实现“新增一列数据”的需求。

额外提示 #

如果你的新数据不是在原区域右侧，而是其他位置，只需要调整newXRange和newYRange的定义逻辑即可，核心还是通过XValues和Values两个属性来赋值。

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