如何刪除圖表中的系列如果系列名稱=「＃N/A」

Question

我有一個動態圖表，有時可能包含空白數據系列在excel vba中。當有一個空的數據序列時，只有圖例條目顯示爲「＃N/A」。我試圖建立一個代碼，如果系列名稱等於「＃N/A」，它將完全刪除數據系列。下面是我構建的代碼的副本，但是我在「for each ...」行中得到無效的參數錯誤。

Dim n As Variant 
ActiveChart.PlotArea.Select 
For Each n In ActiveChart.SeriesCollection(n) 
    If ActiveChart.SeriesCollection(n).Name.Text = "#N/A" Then 
     ActiveChart.SeriesCollection(n).Delete 
    End If 
Next n 

Answer 1

試試這個。

Dim n As Series 
ActiveChart.PlotArea.Select 
For Each n In ActiveChart.SeriesCollection 
    If n.Name = "#N/A" Then 
     n.Delete 
    End If 
Next n