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

³q¹L¥¨¶°¤u§@ªí¥þªí°µ¤FTRIM¤§«á, ¤é´ÁÅܧó¤F

³q¹L¥¨¶°¤u§@ªí¥þªí°µ¤FTRIM¤§«á, ¤é´ÁÅܧó¤F

³q¹L¦p¤Uªº¥¨¶°¹ï¥þ±i¤u§@ªí°µ¤FTRIM¤§«á,µo²{¤é´Á­ì¬°¤G¤ë¤»¤éªº, ³QÅܧ󬰤»¤ë¤G¤é, ¦ý¤@¤ë¤Ê¤@¤é«h¨S¦³ÅܤÆ.
½Ð°Ý¦p¦ó¸Ñ¨M¦¹°ÝÃD?

Sub ALL_TRIM()

Dim A As Range
For Each A In ActiveSheet.UsedRange
A.Value = RTrim(A)
Next

Cells.EntireColumn.AutoFit

End Sub
TEST20120216.zip (10.87 KB)

¦^´_ 8# Hsieh
¬Q±ß¤w¸g¸Õ¹L¥Î¸ê®Æ­åªR¥h°µ, ¦ý¦ü¥G³£¤£¦¨¥\.
²{¦b¨M©w¼È®É©ñ±ó­»´ä°Ï¤é´Á³]©w, §ï¥Î¥xÆW¤¤¤å©Î¬ü°ê­^¤å, ¼È®É§ïÅܤ@¤U¦Û¤vªº²ßºD, ª½¦Ü§ä¥X¤@­Ó¥i¦æªº¤èªk¦A§ï¦^§a.
¦pªG¦U¤j¤j§ä¨ì¤èªk, ½Ðµo¤å´£ÂI¤p§Ì, ÁÂÁ¦U¦ì.

TOP

¦^´_ 7# pcwh3

¿ý»s¤@¬q¸ê®Æ­åªR
Sub Macro1()
    Columns("B:B").Select
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 5), TrailingMinusNumbers:=True
End Sub
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh
¤£©ú¥Õ¦p¦ó¥Î¸ê®Æ­åªR°µ!

TOP

¦^´_ 5# pcwh3
¥Î¸ê®Æ­åªRª½±µ§ï¦¨¤é´Á
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh
§Ú¬O¦b­»´äªº, ³]©w¤F­»´ä°Ï.
¦pªG§ï¬°¥xÆW¦a°Ï, «h¨S¦³°ÝÃD.
¥ç°µ¹L¤@­Ó¹êÅç, ´N¬O¥ý±N¦a°Ï³]©w§ï¬°¥xÆW, °µ§¹trim¤§«á¦A§ï¦^­»´ä¦a°Ï, µ²ªG¥X¨Ó¤§«áµo²{¨S¦³°ÝÃD.
¦ý¬OÁ`¤£¦¨¨C¦¸³£­n³o¼Ë°µ.
¦³¬Æ»ò¤èªk¥i¥H¸Ñ¨M¨ì©O?

TOP

¦^´_ 3# pcwh3
¥i¯à¬OWINDOWS¦a°Ï»y¨¥³]©w°ÝÃD


   
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# GBKEE
¥H¤U¬°¿ý»s¥Xªº°Êµe, §Ú´¿¸g¨Æ¥ý±N¨ä¦Û­q®æ¦¡¬°D/MM/YYYY¡A¦ý¹B¦æ¤§«áµ²ªG³£¬O¦pªG¤é´Á¤p©ó©Îµ¥©ó¤G¤ë¤Q¤G¤é(¨Ò¦p)¡A³£·|Åܦ¨¤Q¤G¤ë¤G¤é.
TEST20120216.gif

TOP

¦^´_ 1# pcwh3
¨S¦³°Ú

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD