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

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

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

½Ð°Ý~~
¦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
2011-12-30_175425.jpg
2011-12-30 18:02


Åܧó«á
2011-12-30_180125.jpg
2011-12-30 18:03

QQ.rar (1.83 KB)

  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. Sub «O¯dP()
  17. Dim Ay()
  18. For Each a In Range("E2:E4")
  19. ar = Split(a, ",")
  20. For Each c In ar
  21.   If c Like "P*" Then
  22.     ReDim Preserve Ay(s)
  23.     Ay(s) = c
  24.     s = s + 1
  25.   End If
  26. Next
  27. a.Value = Join(Ay, ",")
  28. Erase Ay: s = 0
  29. Next
  30. End Sub
½Æ»s¥N½X
¦^´_ 1# marklos
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

¦^´_ 4# Hsieh


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

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD