VBA:删除数组项后减少循环的迭代次数？

Question

在VBA for Excel中:

For i = 0 To UBound(artMaster)
    For j = i To UBound(artMaster)
        If i <> j And artMaster(i).VDN = artMaster(j).VDN Then
            Call DeleteArrayItem(artMaster, j)
        End If
    Next j
Next i

删除其中一个数组项后,如何减少循环的迭代？

Answer 1

您可以从迭代器中减去1.但这可能会有问题,并使代码更难理解.

也许更好的方法是从最后一项循环到第一项(步骤-1).这样,删除项目时,迭代器仍然有效.