Question

VBA中如何把两个FOR…NEXT循环嵌套的内容都放在一个一维数组中？

Answer 1

Private Sub CommandButton1_Click()
Dim iarr(5) As String
Dim jarr(10) As String
Dim arr() As String
ReDim Preserve arr(0)
Dim i, j As Integer
Dim m As Integer: m = 0
For i = 0 To UBound(iarr)
    ReDim Preserve arr(UBound(arr) + 1)
    arr(m) = iarr(i)
    m = m + 1
Next i

For j = 0 To UBound(jarr)
    ReDim Preserve arr(UBound(arr) + 1)
    arr(m) = jarr(j)
    m = m + 1
Next j

End Sub

这段代码提供一个思考的方向或者说是模型，仅供参考

Answer 2

for i=0 to 5
for j=5 to 10
if i<5 then
a(x)=i
else
a(x)=j
endif
x=x+1
next
next

Answer 3

说清楚点。