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

问题描述

我想在 VBA Access 中将 1 到 1000000 的所有数字放入一个集合中，例如 {1,2,3,4,5,6,7,8,...,1000000} 怎么可以我这样做？我需要所有数字都采用这种集合格式，以便我可以对所有这些数字执行集合操作。

我想执行集合操作，例如从列表中减去一个列表，例如：

{0,1,1000000}- {1,3}= {4,1000000}

但我需要一种巧妙的方法来将所有数字从 1 到 1000000 作为一个集合。

解决方法

似乎您正在寻找一个数组。您需要按照您的描述进行各种缩减来重建它，但它应该可以满足您的需求。

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