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

¦p¦ó³z¹LVBAÀH¾÷"¸U¤¤¨ú¤@"(¦ý¤£¯à­«½Æ),©â§¹¤@¸U¦¸

¦^´_ 10# PKKO
¶È¨Ñ°Ñ¦Ò¡A¤£¦P¹q¸£°õ¦æ®É¶¡¤]¤£¦P
  1. Sub test()
  2.   Dim ar1, ar2, ar3, ar
  3.   Dim i As Integer, j As Integer, k As Integer, n As Long
  4.   Dim t, s As String
  5.   
  6.   t = Timer
  7.   ar1 = [A1:A100].Value
  8.   ar2 = [B1:B100].Value
  9.   ar3 = [C1:C100].Value
  10.   ReDim ar(1 To UBound(ar1) * UBound(ar2) * UBound(ar3), 1 To 1)
  11.   n = 0
  12.   For i = 1 To 100
  13.     For j = 1 To 100
  14.       s = ar1(i, 1) & ar2(j, 1)
  15.       For k = 1 To 100
  16.         n = n + 1
  17.         ar(n, 1) = s & ar3(k, 1)
  18.       Next
  19.     Next
  20.   Next
  21.   
  22.   Debug.Print Timer - t     '¤p©ó1¬í
  23.   
  24.   Application.ScreenUpdating = False
  25.   [E1].Resize(UBound(ar)).Value = ar    '§âµ²ªG±qarray©ñ¨ì¤u§@ªí¤Wªá¶O³Ì¦h®É¶¡
  26.   Application.ScreenUpdating = True
  27.   
  28.   Debug.Print Timer - t     '¬ù 1X ¬í
  29. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# PKKO
10000¤£­«½Æ¨ú­È
  1. Sub ex()
  2. Set d = CreateObject("Scripting.dictionary")
  3. Ar = [A1:A10000].Value
  4. Do Until d.Count = 10000
  5. Randomize
  6. k = Int(10000 * Rnd + 1)
  7. d(k) = Ar(k, 1)
  8. Loop
  9. [B1].Resize(10000, 1) = Application.Transpose(d.items)
  10. Set d = Nothing
  11. End Sub
½Æ»s¥N½X
¦Ü©ó1000000¦¸
3Äæ¦U100®æ¸ê®Æ
  1. Sub nn()
  2. Dim ar(1000000, 3)
  3. t = Timer
  4. For Each a In [A1:A100]
  5.    For Each b In [B1:B100]
  6.       For Each c In [C1:C100]
  7.          ar(s, 0) = a: ar(s, 1) = b: ar(s, 2) = c
  8.          s=s+1
  9.       Next
  10.     Next
  11.     Next
  12.     [D1].Resize(1000000, 3) = ar
  13.     MsgBox Timer - t  '¦@ªá¶Oªº®É¶¡¬í¼Æ
  14. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁ¦U¦ì¤j¤j,®É¶¡¤W¯uªº§Ö¦h¤F
¬Ý¨Ó§Ú±o¥ý¦h¾Ç²ß¤@¤U°}¦Cªº¨Ï¥Î¤è¦¡
·P¿E¤£ºÉ!!!
PKKO

TOP

¸ß°Ý #11 »P #12
  1. ar = [D1:D10000].Value  '­ì©l¸ê®Æ(¥²¶·¬O¤£­«½Æ­È)
½Æ»s¥N½X
³o¦æ ¯à§_¦Û°Ê§ì¨ú DÄæ¦ìªº¼Æ¶q ¤£­n¹w³]10000

¨Ò¦p
§Úªº¸ê®Æ¦³2000µ§ ¦ý¤£¤@©w¨C¦¸³£¬O2000µ§
¤£·Q¹w³]¨C¤@¦¸³£­n­«·s¿é¤Jµ§¼Æ¡C

TOP

¦^´_ 11# stillfish00
¦^´_ 12# Hsieh
  1.    ar = [D1:D10000].Value  '­ì©l¸ê®Æ(¥²¶·¬O¤£­«½Æ­È)
½Æ»s¥N½X
³o¦æ ¯à§_¦Û°Ê§ì¨ú DÄæ¦ìªº¼Æ¶q ¤£­n¹w³]10000

¨Ò¦p
§Úªº¸ê®Æ¦³2000µ§ ¦ý¤£¤@©w¨C¦¸³£¬O2000µ§
¤£·Q¹w³]¨C¤@¦¸³£­n­«·s¿é¤Jµ§¼Æ¡C

TOP

¦^´_ 15# toromru


ar = [D1:D10000].Value
¦pªG¯Âºé¬O³o¦æ,¦³«Ü¦h¤è¦¡
'¦Û°Ê¿ï¾Ü¨ì³Ì¤U­±¤@¦C
AR=RANGE("d1:d" & [D65536].END(XLUP).ROW).VALUE
'¿é¤J¤è¦¡
X1=INPUTBOX("½Ð¿é¤JdÄæ¼Æ¦r")
AR=RANGE("d1:d" & X1 ).VALUE
'¬Y­Ó¦ì¸m©Î¬O¬Y­ÓÅܼư²³]¬O[A2]
AR=RANGE("d1:d" & [A2] ).VALUE

'³o´X­Ó¤èªk³£¦]¸Ó­n³]©w°»¿ùªº¤è¦¡,ÁקK¨S¦³¼Æ¦r¡BdÄæ¨S¦³­È¡B[A2]¬°ªÅµ¥°ÝÃD~
PKKO

TOP

¦^´_ 16# PKKO


    ÁÂÁ  ¤w¦¨¥\¦p§Ú»Ý¨Dªº©â¥X : )

TOP

¦^´_ 16# PKKO


    ±z¦n
      ¼W¥[¤F¨â­Ó»Ý¨D¡A·Q¸ß°Ý¡C
     
       °²³]
            1. ¦pªG­n±NÀH¾÷¨úªº­È ¦b ­ì©l¸ê®ÆªºXÄæ¦ì¼Ð°O¤w¨ú
            2 ¦bÀH¾÷¨úªº«e¸m±ø¥ó¬°XÄæ¦ì¥¼¼Ð°Oªº¤~¶i¦æ¿z¿ï.


       ¨Ò¦p:    A¬°­ì©l¸ê®Æ  B¬°ÀH¾÷¨úªº­È   X¬°¼Ð°O
                  
                 ²Ä¤@¦¸ÀH¿ï       ²Ä¤G¦¸ÀH¿ï     ²Ä¤T¦¸ÀH¿ï         
                    A   X   B             A   X   B            A    X    B
                    1         2             1         1            1    O    3
                    2                        2    O                2     O
                    3                        3                       3

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD