那你可以定义一个数据变量。举个例子
Sub a()
Dim a As Integer, i As Integer, b(100) As Integer
For a = 1 To 100
If a Mod 2 = 0 Then
i = i + 1
b(i) = a
End If
Next a
End Sub
这里我就定义了一个b1到b100的数组。每一个为偶数的a都会被记录到数组中。
我不知道你是不是要这样的效果。
如果有能帮到你的地方，非常荣幸！如果有需要，可以私信我。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024