Sub sb_DCombi()
Dim i%, j%, k%, iLB%, iUB%, iQty%, iSrc%(), iTgt%()
iQty = 5 ' set source array size
ReDim iSrc(1 To iQty)
iLB = LBound(iSrc): iUB = UBound(iSrc)
For i = iLB To iUB ' fill source array
iSrc(i) = i ' * 2
Next
' *** *** Parser
For i = iLB To iUB ' fill target array
For j = i + 1 To iUB
k = k + 1 ' add new pair
ReDim Preserve iTgt(1 To 2, 1 To k)
iTgt(1, k) = iSrc(i)
iTgt(2, k) = iSrc(j)
Debug.Print iTgt(1, k); iTgt(2, k)
Next
Next
Debug.Print vbLf
' *** ***
iLB = LBound(iTgt, 2): iUB = UBound(iTgt, 2)
For i = iLB To iUB ' check & display target array
Debug.Print iTgt(1, i); iTgt(2, i)
Next
End Sub
|
