¨Ï¥ÎVBA¨D¸ê®Æ²Î­p¿é¥X

b9208

¦U¦ì¥ý¶i«e½ú
½Ð±Ð¦p¦ó³]­pVBAµ{¦¡¨Ó°õ¦æ¡C
­pºâ¡ª¸ê®Æªí¡ª¤º¦a°Ï¤Î©m¦W¬Û¦P¤§¦¸¼Æ¡A¨Ã¿é¥X©ó¡ª²Î­pªí¡ª¤¤¡C
«D±`·PÁ¨ó§U
H1.rar (3.11 KB)

¤U¸ü¦¸¼Æ: 14

2011-2-24 00:07

ianlcc

ÁÂÁ±zªº¤À¨É¡A³o¥i¥H·í§@¾Ç²ßªº¸gÅç¡I

character

½Ð°Ý­n¦p¦ó¨Ï¥Î¼Ï¯Ã³æ¯Â¥u°w¹ïÁ`­p°µª½±ø¹Ï©O?
²{¦b³£·|¤@¨Ö§â²Ó¶µ¦C¨ìª½±ø¹Ï¤F
·PÁÂ

Hsieh

¦^´_ 16# c_c_lai
¥i§Q¥Î¿ý»s¥¨¶°¨Ó¨ú±oVBA¥N½X
³o¼Ë¥i¦P®É¼ô±xEXCELªº°ò¥»¾Þ§@
±z¤£§«¥ý¸Õ¸Õ¬Ý

c_c_lai

¦^´_ 13# Hsieh
½Ð±ÐHsieh¤j¡A±z¨º Sheet4("¼Ï¯Ã¤ÀªR")³¡¤À¤§¤º®e¡A
¦p¦ó¥H VBA ¨Ó®i²{ (¹ê²{) ©O¡H ÁÂÁ±z¡I

ching12a

­è¦n»Ý­n«ç¼Ë²Î­p¸ê®Æªí¼Æ¦r

b9208

¦^´_ 13# Hsieh
ÁÂÁª©¥D
°õ¦æOK

Hsieh

¦^´_ 12# b9208

1. Private Sub CommandButton1_Click()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Set d1 = CreateObject("Scripting.Dictionary")
   
4. Set d2 = CreateObject("Scripting.Dictionary")
   
5. With Sheet3
   
6.    For Each a In .Range(.[B6], .[B65536].End(xlUp))
   
7.       ar = Array(a, a.Offset(, 2), a.Offset(, 3), "")
   
8.      m = Join(ar)
   
9.       d(m) = d(m) + 1 '3Äæ²Î­p
   
10.       ar(3) = d(m)
    
11.       d1(m) = ar
    
12.       d2(a.Value) = d2(a.Value) + 1 '¦a°Ï²Î­p
    
13.     Next
    
14. End With
    
15. With Sheets("²Î­pªí")
    
16. .[B7:F65536] = ""
    
17. .[B7].Resize(d1.Count, 4) = Application.Transpose(Application.Transpose(d1.items))
    
18. .[B6].Resize(d1.Count + 1, 4).Sort key1:=.[B7], key2:=.[C7], header:=xlYes
    
19. .[G7:H65536] = ""
    
20. .[G7].Resize(d2.Count, 1) = Application.Transpose(d2.keys)
    
21. .[H7].Resize(d2.Count, 1) = Application.Transpose(d2.items)
    
22. .[G6].Resize(d2.Count + 1, 2).Sort key1:=.[G7], header:=xlYes
    
23. .Select
    
24. End With
    
25. End Sub

½Æ»s¥N½X

b9208

¦^´_ 4# Hsieh
Hsieh «e½ú±z¦n

¨Ï¥Î«áµo²{¥u­n¡ª­û¤u½s¸¹¡ª¬Û¦P¡A«h²Î­p¬°¤@µ§¸ê®Æ¡A¤£·|¤ñ¸û¡ª¦a°Ï¡ª¤Î¡ª©m¦W¡ª¤GÄæ¸ê®Æ¡C
»Ý¨D¬O¡ª¦a°Ï¡B©m¦W¤Î­û¤u½s¸¹¡ªµ¥¤TÄæ¸ê®Æ¬Û¦P²Î­p¸ê®Æ¡C
Àµ½Ð«ü¾É
ÁÂÁÂ

H2_²Î­p.rar (15.23 KB)

¤U¸ü¦¸¼Æ: 15

2012-3-9 20:03

aa7551

¦A¦¸·PÁª©¥»ªº±Ð¾É,°ò¥»¥\­n¦h¥[½m²ß,¤~¯à§ó¶i¨B