Excel VBA：删除SeriesCollection不释放内存[内存泄漏]

Question

我在这个宏中有内存泄漏。我需要动态添加新系列，所以我首先删除所有现有系列，然后添加我需要的系列。 运行此宏10000次会导致大量内存泄漏。

Sub Macro1()

  Dim Datarange As Range
  Dim i As Integer

  ActiveSheet.ChartObjects("Chart 1").Activate

  With ActiveChart

    Do While .SeriesCollection.Count > 0
      .SeriesCollection(1).Delete
    Loop

    For j = 0 to 3
      .SeriesCollection.NewSeries
    Next

  End With

End Sub

有什么想法吗？