在VBA ACCESS中将数字序列转换为集合

Question

我希望将1到1000000之间的所有数字放入VBA Access中的一个集合中，例如，｛1，2，3，4，5，6，7，8，…，1000000｝我该如何做到这一点？我需要所有的数字都是这个集合格式，这样我就可以对所有这些数字执行集合运算。

我想执行设置操作，比如从列表中减去一个列表，比如：

｛0，1，2，3，4，6，7，8，…，1000000｝-｛1，2、3｝=｛4，5，6，7

但我需要一个聪明的方法，把从1到1000000的所有数字作为一组。

Answer 1

看起来您正在寻找一个数组。正如你所描述的，你需要通过各种削减来重建它，但它应该满足你的需求。

Sub MakeArray()
Dim myArray(1 To 1000000) As Long
Dim i As Long
For i = LBound(myArray) To UBound(myArray)
myArray(i) = i
Next i
End Sub