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

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

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

¦pÃD,¤p§Ì¥ÎEXCELªº¨ç¼Æ¼g±o¥X¨Ó
¦ý«á¨Óµo²{EXCEL¨ç¼Æ¤Ó¦h¤F(²¦³º¤@¸U­ÓÀx¦s®æ)
³t«×·|Åܦ¨ºC¨ì¤£¦æ

©Ò¥H°²³]D1:D10000³£¬O¤£¦Pªº­È
­n¦p¦ó¨C¦¸³£¬OÀH¾÷¦b³o¤@¸U®æ¸Ì¨ú¤@­Ó­È
³sÄò°õ¦æ¤@¸U¦¸
¦ý³£¤£¯à­«½Æ
ª½¨ì³Ì«á¤@­Ó­È³Q¨ú§¹µ²§ô©O?

PS:¨ú§¹ªº¦P®É²M°£°O¾ÐÅé,¦]¬°¤U¦¸ÁÙ­nÄ~Äò°õ¦æ¦P¼Ëªºµ{¦¡,ÁקK°O¾ÐÅ餣¨¬
¤£¦n·N«ä,³Â·Ð¦U¦ì¥ý¶i¤F...
PKKO

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

¦^´_ 16# PKKO


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

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

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

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

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

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

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

¦^´_ 9# stillfish00


    ¤j¤j¤Ó¼F®`¤F,§Ú¬Ý¤Fº¡¤[ªºÁÙ¬O¬Ý¤£¬O«ÜÀ´,¬°¦ó¥L¤£·|­«½Æ,¥H¤ÎRESIZEªº¤èªk¬O¦p¦óÀ³¥Îªº

¥i¥H¦A½Ð±Ð±z¤@¤U:

­Y¬OA~CÄæ³£¦U¦³¤@¦Ê®æ¸ê®Æ

§Ú·Q­n¶i¦æ±Æ¦C²Õ¦X,¤]´N¬OA1 & B1 & C1 µM«áA2 & B1 & C1 ¥H¦¹Ãþ±À,¨C­Ó²Õ¦X³£­n¦³¤]´N¬O100*100*100=100¸Uªº²Õ¦X
¦p¦ó¶]³Ì§Ö,§Ú¼gªºµ{¦¡¶]±o¦³ÂI¤[...
PKKO

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD