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

[µo°Ý] ¥þ«¬¼ÐÂI§ï¬°¥b«¬¼ÐÂI

[µo°Ý] ¥þ«¬¼ÐÂI§ï¬°¥b«¬¼ÐÂI

§â   ®üÃö¡G®üÃö   §ï¬°        ®üÃö:®üÃö       
¥Îvb§ïÅܸê®Æ®w¨½¸ê®Æ¨½¥þ«¬¼ÐÂI³£§ï¬°¥b«¬¼ÐÂI
§Ú¤À¤£²M¤°麽¥\¯à·|°Ï§O¥þ«¬¥b§Î,¥u¯à¤£±o·N¦Ó¨D¨ä¦¸,§â¥L­Ì²Î¤@¤F,¥i¤£¥i¥H³o¼Ë°µ?
½Ð±Ð¦U¦ìª©¥D,ÁÂÁÂ
lmh

¦^´_ 1# mhl9mhl9
  1. Option Explicit
  2. Sub Ex()
  3.     ActiveSheet.Cells.Replace "®üÃö¡G®üÃö", "®üÃö:®üÃö", xlPart
  4.     ' ActiveSheet.Cells.Replace "¡G", ":", xlPart
  5. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

ÁÂÁÂGBKEEªºÀ°§U,§Ú·Q¦³¨S¦³§ïÅÜ©Ò¦³¼ÐÂIªº¤èªk,¦]¬°¤À¤½¥q¤W³øªº²£«~¦WºÙ§Ú­n¨ú°ß¤@­È,¨ä¤¤¦³¤£¤Ö¦WºÙ¬O¦]¬°¼ÐÂI¤£¦P,´N¦¨2­Ó«~ºØ.
°£¤F¼ÐÂI¤£¦P¤Þ°_°ß¤@­È¤£²Å¦X­n¨D,ÁÙ¦³prefix"'",«e«áªÅ®æ,¦WºÙ³Ì«á¥[¦h¤@­Ó".",³ÌÃø·dºâ¬O¼ÐÂI²Å¸¹,©Ò¥H§Ú·Q¥ý·d©w¥¦,¨ä¥L¦A·Q¤èªk³v¤@¸Ñ¨M.
lmh

TOP

  1. For Each c In ActiveSheet.UsedRange
  2. c.Value = StrConv(c, vbNarrow)
  3. Next
½Æ»s¥N½X

TOP

¦^´_ 4# oobird

¯u¬O§Ú©Ò»Ý,ÁÂÁÂ,10¸U®æ25¬í,®É¶¡¥i¥H±µ¨ü§a,thanks
lmh

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD