通过VBA移动图表系列数据

Question

我有以下代码

Dim ss As Series
Dim strs() As String
Set ss = ActiveChart.SeriesCollection(1)
strs = Split(ss.Formula, ",")
Dim rg As Range
Set rg = Range(strs(2))
Set rg = rg.Resize(rg.Rows.Count + 1)
ActiveChart.SeriesCollection(1).Values = rg

这允许我在我的数据系列中再添加一项数据，但我希望每次运行时也删除第一项。例如，第1天范围是A1到C1然后我运行宏我希望它转到B1到D1

我希望这是有道理的

Answer 1

这将“移动”范围，而不是调整范围，这就是你正在做的事情。

Set rg = rg.Offset(1,0)