vba自动选取wind更新数据，作series图

每次wind刷新之后，series的范围都需要重新拖一下，感觉非常麻烦，就用vba改了下～

 

 

 

 

Sub update_chart()
Dim rng As Range
Dim i As Integer
Set rng = ActiveSheet.Range("n2000").End(xlUp)
i = rng.Row
ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.FullSeriesCollection(1).Select
Selection.Formula = _
    "=SERIES('工作表名称 '!R4C11,'工作表名称 '!R6C1:R" & i & "C1,'工作表名称'!R6C11:R" & i & "C11,1)"
ActiveChart.FullSeriesCollection(2).Select
Selection.Formula = _
    "=SERIES('工作表名称 '!R4C12,'工作表名称 '!R6C1:R" & i & "C1,'工作表名称'!R6C12:R" & i & "C12,2)"
ActiveChart.FullSeriesCollection(3).Select
Selection.Formula = _
    "=SERIES('工作表名称 '!R4C13,'工作表名称 '!R6C1:R" & i & "C1,'工作表名称'!R6C13:R" & i & "C