Sub test()
Const n = 39
ReDim T(n) As String
Dim C1%, C2%, C3%, C4%, C5%
Dim Arr(), Brr()
T0 = Timer
For i = 1 To n: T(i) = Format(i, "00"): Next
For C1 = 1 To n: For C2 = C1 + 1 To n: For C3 = C2 + 1 To n
For C4 = C3 + 1 To n: For C5 = C4 + 1 To n
k = k + 1: ReDim Preserve Arr(1 To 1, 1 To k)
Arr(1, k) = T(C1) & " " & T(C2) & " " & T(C3) & " " & T(C4) & " " & T(C5)
Next: Next: Next: Next: Next
'[A1].Resize(UBound(Arr, 2), 1) = Application.Transpose(Arr) '°}¦C¤Ó¤j·|²£¥Í¿ù»~......
'Äd-¦C¥æ´«(¦Û¤v¤â°Ê¼g)
ReDim Brr(1 To UBound(Arr, 2), 1 To 1)
For i = 1 To UBound(Arr, 2): Brr(i, 1) = Arr(1, i): Next
[A1].Resize(UBound(Brr)) = Brr: Columns.AutoFit
MsgBox "¤w¦C¥X" & UBound(Brr) & "²Õ¡A" & "¦@¨Ï¥Î®É¶¡" & Round(Timer - T0, 2) & "¬í"
Erase Arr: Erase Brr
End Sub