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

¹ï¤£°_ ½Ð°Ý¤@¤U¸Ó¦p¦ó«ç»ò¨Ï¥ÎVB?

¹ï¤£°_ ½Ð°Ý¤@¤U¸Ó¦p¦ó«ç»ò¨Ï¥ÎVB?


­ì¥»°ÝÃD¬O·Q»¡
¸Ó«ç»ò²¾°£±¼Àx¦s®æ¤ºªº­«½Æ¸ê®Æ?
¦p¼ÐÃD©Ò¥Ü,·QÅý¥ª¹ÏÅÜ¥k¹Ï
------------------------------------------
µM«á§ä¨ì»P§Ú¬Û¦P°ÝÃDªº¤å³¹
http://forum.twbts.com/thread-10640-1-1.html
¥i¬O§Ú·|Åܦ¨©_©Çµe­± ¦³¤H¯à±Ð¤@¤U«ç»ò¨Ï¥Î¶Ü

³o¬O§Ú¨Ï¥Îªº¹Lµ{¹Ï
«ö¤UVB ¨Ã¶K¤W

µM«á¹ï°Ï°ì©Ò¿ï¨ú «ö¤U¥kÃ䪺°õ¦æ

´N¶]¥X³o­Ó¤F

¦^´_ 1# ¥d¹Å¶ð


    ¤F¸Ñ¤@¤Uµ{¦¡½X¤º®e
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. ar = Range("A1").CurrentRegion '»PA1¬Û³sªº¸ê®Æ¼g¤J°}¦C
  4. For i = 1 To UBound(ar)
  5. If InStr(ar(i, 2), ",") > 0 Then '­n²¾°£­«½Æ¸ê®Æ¦b²Ä2Äæ­Y¦³³rÂI¦s¦b«h°õ¦æ
  6.    For Each ky In Split(ar(i, 2), ",") '¥H³rÂI¤À³Î¦r¦ê
  7.      d(ky) = ""
  8.    Next
  9.    ar(i, 2) = Join(d.keys, ",") '¥H³rÂI³sµ²¦r¨åÃöÁä¦r
  10.    d.RemoveAll '²¾°£¦r¨å¤º®e
  11. End If
  12. Next
  13. [G1].Resize(UBound(ar, 1), UBound(ar, 2)) = ar '©ñ¦bGÄæ
  14. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD