在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