ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

±Æ¦C²Õ¦X

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-2-22 00:32 ½s¿è

¦^´_ 1# eric7765


¤£­n¥ÎCellª«¥ó¡A¥Î¯Â¼Æ­È°}¦C¶]°j°é·|§Ö¤@ÂI
¤£¹L­n¤p¤ß°O¾ÐÅ餣¨¬


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
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD