PKKO

¦^´_ 7# ­ã´£³¡ªL


    ·PÁ­㴣³¡ªL¤j¤jªº¦^ÂÐ,Åý§Ú¾Ç²ß¤F±zªº«ä¦ÒÅÞ¿è¤è¦¡,¥H¤Î¤£¦Pªºµ{¦¡¼¶¼g¤è¦¡!

PKKO

¦^´_ 9# stillfish00


    ·PÁÂstillfish00¤j¤j,¤@¸ô¨«¨Ó«ü¾É³\¦hµ{¦¡½X

³o¦¸±z¤SÀ°¤F§Ú¤j¦£¤F,¤@ª½¦b«ä¦Ò«ç¼Ë¥i¥HÅýµ{¦¡¶]±o§ó§Ö

±zªºµ{¦¡½X³t«×§Ö¥B¼¶¼g§Ö³t,·P®¦®@~

­ã´£³¡ªL

¦^´_ 11# PKKO


Filter»P¤@¯ë¨ç¼Æ¬Û¦P¡A¹J¤j°j°éÁÙ¬O­n¯Ó¨Ç®É¶¡¡G
Sub Test_Filter()
Dim i&, Arr(3000), Brr, T
For i = 0 To 3000:  Arr(i) = i + 1: Next i
T = Timer
¡@
For i = 1 To 5000:  Brr = Filter(Arr, i): Next i
MsgBox Timer - T
End Sub
¡@
¦ý¤ñ°_Âù°j°é¤w§Ö«Ü¦h¡A¬O¤£¿ùªº¤èªk¡ã¡ã
¡@
­Y­n¤ñ¹ï¤è¦¡¬°¡G
"A12*"¡@¡@"B315*"¡@¡e¶}ÀY¬Û¦P¡f¡@©Î¡@"*256"¡@"*21"¡@¡eµ²§À¬Û¦P¡f¡AÁÙ¬O¥Î Like¡A
Instr«h¥i§PÂ_ÃöÁä¦r¦b¤å¦r¦ê¤¤ªº¦ì¸m¡A¤]¬O±`¥Î»yªk¡ã¡ã

µ{¦¡¨Ì¸ê®Æ¦h¹è¡D«¬ºA¤Îµ²ºc¡A¨Ï¥Î¾A©y§Y¥i¡AµL¦nÃa¤§¤À¡ã¡ã
¡@

PKKO

¦^´_ 13# ­ã´£³¡ªL


    ­ì¨Ó¦p¦¹,·PÁ¤j¤j!

±z´£¨Ñªºµ{¦¡½X,§Ú³£¦³¥Î¨ì®@!!

¦ý¼¶¼gªº®É­ÔÁ`¬O­n«ä¦Ò¤@¤U,ÁÙµLªk«Ü¶¶ºZ,©Ò¥H³£·|¦^¨Ó°½¬Ý¤j¤j±z¼gªºµ{¦¡½X^_^

Andy2483

¦^´_ 7# ­ã´£³¡ªL


    ÁÂÁ½׾Â,ÁÂÁ«e½ú
«á¾ÇÂǦ¹©«¾Ç²ß«e½úªº¤è®×,«á¾Ç¾Ç²ß¤ß±oµù¸Ñ¦p¤U,½Ð«e½ú¦A«ü¾É

°õ¦æµ²ªG:

¤U¸ü (67.59 KB)

2023-5-9 14:04

Public Const R = 1000
Sub ¨ú¼Æ3()
Dim i&, j&, Arr, Brr, Drr, T, SS, xD, xD1, TT$, M%, N%, Y$
'¡ô«Å§iÅܼÆ
T = Timer
[B:B].ClearContents: [H3:H4] = ""
'¡ô²M°£µ²ªGÄæ¸ê®Æ
Arr = [A1].Resize(R):  Brr = [B1].Resize(R):  Drr = [D1].Resize(R)
'¡ô¥O(Arr,Brr,Drr)¦U¬O¤Gºû°}¦C±a¤JÀx¦s®æ­È
Set xD = CreateObject("Scripting.Dictionary")
Set xD1 = CreateObject("Scripting.Dictionary")
'¡ô¥O(xD,xD1)¦U¬O¦r¨å
For j = 1 To UBound(Drr)
'¡ô³]¶¶°j°é
    TT = Drr(j, 1)
    '¡ô¥OTTÅܼƬO °j°éDrr°}¦C­È
    M = Len(TT)
    '¡ô¥OMÅܼƬO TTÅܼƪº¦r¼Æ
    N = 1
    '¡ô¥ONÅܼƬO 1
    xD1.RemoveAll
    '¡ô¥O²MªÅ xD1¦r¨å
    Do
    '¡ô³]±ø¥ó°j°é
      For i = 1 To M
      '¡ô³]¶¶°j°é
          Y = Mid(TT, N, i)
          '¡ô¥OY¬O TTÅܼƱq ²Ä1¦r¶}©l¨ú¥k°¼ªº¦r
          If xD1(Y) = "" Then xD(Y) = xD(Y) + 1
          '¡ô¦pªGxD1¦r¨å¸Ì¨S¦³YÅܼƳokey,´N¥OxD¦r¨å¯Ç¤J,item²Ö¥[1
          xD1(Y) = 1
          '¡ô¥OYÅܼƯǤJxD1¦r¨å¸Ì,item¬O 1,ÅýxD1¦r¨å¦b¤U¦¸²MªÅ«eÂo­«½Æ
      Next i
      N = N + 1: M = M - 1
      '¡ôN.MÅܼưµÅܤÆ,¥H¥þ³¡¤å¦r¦ê²Õ¦X³v¦¸Â^¨ú
    Loop Until M = 0
    '¡ô°õ¦æ¨ì ³Ì«á¤@­Ó¦r¤¸
Next j
For i = 1 To UBound(Arr)
'¡ô³]¶¶°j°é
    Y = Arr(i, 1): j = xD(Y)
    '¡ô¥HArr°}¦C­È¬dxD¦r¨å¦^¶Çitem­È(¸Ókey¥X²{¹L´X¦¸)
    Brr(i, 1) = j
    '¡ô¼g¤JBrr°}¦C
    SS = SS + j
    '¡ô²Ö­p¦¸¼Æ
Next i
[B1].Resize(R) = Brr:  [H3] = Timer - T: [H4] = SS
End Sub