stillfish00

¦^´_ 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

Hsieh

¦^´_ 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

PKKO

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

toromru

¸ß°Ý #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

toromru

¦^´_ 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

PKKO

¦^´_ 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~

toromru

¦^´_ 16# PKKO


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

toromru

¦^´_ 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