图表与VBA变量命名时，Excel 2013

Question

我试图重命名的图表：

随着ActiveChart

For i = 1 To Count_Rows 
    j = i + 1 
    .FullSeriesCollection(i).Name = """=Sheet1!$A$" & j & Chr(34) 
Next i 

...

这个解析为所需的式为“= Sheet1！$ A $ 2“等等...... 但没有命名带有内容的系列，而是将该系列的名称命名为”= Sheet1！$ A $ 2“

Answer 1

您没有使用范围对象返回单元格值。

For i = 1 To Count_Rows 
    j = i + 1 
    .FullSeriesCollection(i).Name = Range("Sheet1!$A$" & j) 
Next i