通过VBA移动图表系列数据

时间:2015-02-04 17:06:13

标签: excel vba excel-vba

我有以下代码

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

我希望这是有道理的

1 个答案:

答案 0 :(得分:2)

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

Set rg = rg.Offset(1,0)