[µo°Ý] ¦p¦ó§R°£¦r¦ê¤º«ü©w¤å¦r©Î¬O«O¯d«ü©w¤å¦r?

marklos

½Ð°Ý~~
¦p¦ó§R°£¦r¦ê¤º«ü©w¤å¦r¥]§t«á­±ªº¼Æ¦r©Î¬O«O¯d«ü©w¤å¦r¥]§t«á­±ªº¼Æ¦r?

§R°£Location E2;E3;E4 Äæ¦ì¤º¦r¦ê«ü©w¤å¦rC¶}ÀYªº½s¸¹
©Î¬O«O¯dP¶}ÀYªº¤å¦r

¨Ã­×¥¿D2;D3;D4 ªº¼Æ¶q

Åܧó«e

¤U¸ü (45.54 KB)

2011-12-30 18:02

Åܧó«á

¤U¸ü (35.37 KB)

2011-12-30 18:03

marklos

¦^´_ 4# Hsieh


    ­ì¥»­nÂI¿ï¥t¥~¤@­Ó"¦^´_"¤~¯àÅý±z¦¬¨ì·PÁªºÁn­µ~~
~~¿ð¨Óªº·PÁÂ~~·PÁª©¥DªºÀ°¦£~~°ÝÃD¸Ñ¨M¤F!!!

marklos

·PÁ±zÀ°¤F­Ó¤j¦£~~·PÁÂ!!!

Hsieh

¦^´_ 3# marklos

1. Sub «O¯dP()
   
2. Dim Ay()
   
3. For Each a In Range("E2:E4")
   
4. ar = Split(a, ",")
   
5. For Each c In ar
   
6.   If c Like "P*" Then
   
7.     ReDim Preserve Ay(s)
   
8.     Ay(s) = c
   
9.     s = s + 1
   
10.   End If
    
11. Next
    
12. a.Value = Join(Ay, ",")
    
13. a.Offset(, -1) = s
    
14. Erase Ay: s = 0
    
15. Next
    
16. End Sub

½Æ»s¥N½X

marklos

·PÁ¬ۧU~~
¦ý¬OÁÙ¦³¤@¨Æ¤£©ú~
¤]´N¬O , ·í«O¯dpXX¤§«á , ¦p¦ó­«·s²Î­p¼Æ¶q (DÄ椺¨C­ÓITEMªº¼Æ¶q)

Hsieh

1. Sub §R°£C()
   
2. Dim Ay()
   
3. For Each a In Range("E2:E4")
   
4. ar = Split(a, ",")
   
5. For Each c In ar
   
6.   If Not c Like "C*" Then
   
7.     ReDim Preserve Ay(s)
   
8.     Ay(s) = c
   
9.     s = s + 1
   
10.   End If
    
11. Next
    
12. a.Value = Join(Ay, ",")
    
13. Erase Ay: s = 0
    
14. Next
    
15. End Sub
    
16. 
    
17. Sub «O¯dP()
    
18. Dim Ay()
    
19. For Each a In Range("E2:E4")
    
20. ar = Split(a, ",")
    
21. For Each c In ar
    
22.   If c Like "P*" Then
    
23.     ReDim Preserve Ay(s)
    
24.     Ay(s) = c
    
25.     s = s + 1
    
26.   End If
    
27. Next
    
28. a.Value = Join(Ay, ",")
    
29. Erase Ay: s = 0
    
30. Next
    
31. End Sub

½Æ»s¥N½X

¦^´_ 1# marklos