圖表與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