Excel VBA 循環語法

Question

與我之前遇到的問題類似，可以通過連接輕松解決，我正在嘗試為大量圖表系列命名，但這次沒有運氣。
我評論了宏記錄器捕獲的行，並讓我當前（非工作）嘗試連接。
基本上我希望每個系列名稱都是它的編號。

Sub Macro6()
'
' Macro6 Macro
'
' Keyboard Shortcut: Ctrl+x
'
Dim i As Integer

For i = 92 To 250

    ActiveChart.FullSeriesCollection(i).Name = "=" & i & ""

'   ActiveChart.FullSeriesCollection(92).Name = "=""92"""

Next i

End Sub

Answer 1

只需替換ActiveChart.FullSeriesCollection(i).Name = "=" & i & ""

使用ActiveChart.FullSeriesCollection(i).Name = Trim(i & " ")它會正常工作。

希望能幫助到你