Excel 运行时发生vba存储错误

我收到一个错误消息“没有足够的存储空间来完成此操作。请告知我应该如何继续。我已重新启动计算机很多次，但仍然面临相同的问题。”

On Error Resume Next

For iCtr = 0 To Me.ListBox5.ListCount - 1
If Me.ListBox5.Selected(iCtr) = True Then
Me.ListBox6.AddItem Me.ListBox5.List(iCtr)
End If
Next iCtr

For iCtr = Me.ListBox5.ListCount - 1 To 0 Step -1
If Me.ListBox5.Selected(iCtr) = True Then
'Me.ListBox5.RemoveItem iCtr
End If
Next iCtr

---

在添加新项目之前，您可能应该清除Listbox6。另外，Listbox6后面是否有代码，错误具体发生在哪里？我收到一个错误，因为“没有足够的存储空间来完成操作。”“每当执行上述代码时。我正在处理一些有很多框架和列表视图的项目。在某一行？剩下的恐怕不能回答我的问题。