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

[µo°Ý] ²M°£¬Ý¤£¨£ªºªÅ®æ¨Ã°Ñ·Ó

[µo°Ý] ²M°£¬Ý¤£¨£ªºªÅ®æ¨Ã°Ñ·Ó

±q¨t²Î¤U¸üÀɮסA
¨ä¤¤¦³´X­ÓÀx¦s®æ¬Ý¦ü¦³ªÅ®æ¡A¦b°Q½×°Ï±o¨ì¨ó§U¡A«Ø¥ß¦p¤UVBA
    For Each Rng In Selection
¡@Rng = Trim(Application.Clean(Rng))
¡@Next
¥ý¥Hclean¦A¥Îtrim¨Ó°µ§R°£ªÅ®æªº¾ã²z¡A
¦ý¾ã²z«á¤´µL°µ¶}ÀY¥H1¿z¿ïªº³B²z¡A
¨Ã¥Îvlookup°Ñ·Ó¨ì¦¹¸¹½X
¯à§_½Ð¬Ý¬Ý¬O¤°»òª¬ªp©O¡H
Àx¦s®æ°ÝÃD.rar (7.73 KB)

Sub §R°£ªÅ®æ()
For Each Rng In Selection
¡@¡@Rng.Value = Trim(Application.Clean(Rng))¡@'¥[¤J.valueªí¥ÜRng¬ORange
Next
End Sub


Sub §R°£ªÅ®æ()
Dim Rng As Range¡@'³o¬O¼Ð·Ç«Å§i
For Each Rng In Selection
¡@¡@Rng = Trim(Application.Clean(Rng))
Next
End Sub

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-5 09:59 ½s¿è

¦^´_ 1# paddyliu
¦^´_ 2# ­ã´£³¡ªL

§A¥i¥Î¨ä¥L¨ç¦¡±N¤p©ó33¥H¤Uªº¦r¤¸¥h°£±¼¡A
¦b¤@¯ëÂà¤JÀɮפº®e®É¡A±`·|±a¤J¨Ç±±¨î¦r¤¸¡C

TOP

¦^´_ 3# c_c_lai


²Ä¤@­ÓÁôÂær¤¸CODE=12, ¬O¥i¥HCLEAN¥h°£,
­ì¦]¬ORng¥¼©w¸q¬°Rangeª«¥ó, Âà´««á­È¥u¯d¦b[ÅܼÆ], ¦Ó¤£¬O¨ú¥NÀx¦s®æªº­È~~

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-5 11:49 ½s¿è

¦^´_ 4# ­ã´£³¡ªL
¨S¿ù¡I§Ú¬Oª½±µ¨Ï¥Î¥Lªº­ì©lµ{¦¡¥h°»´ú¡A
¨S¯d·N¨ìÅܼƥ¼¥[¨Æ«e«Å§i¡A­è¤~§Ú
¦Û¦æ¦A¼g¤@­Ó´ú¸Õ½X¡A¦p±zªº¥[¤WÅܼÆ
«Å§i¡A¥¿§o´e¬°¦ó¤S Pass¤F¡AÁÂÁ±z´£¿ô¡I
  1. Sub §R°£ªÅ®æ()
  2.     Dim Rng As Range
  3.    
  4.     For Each Rng In Selection
  5.         '  If Not IsError(Rng) Then
  6.             Rng = Trim(Application.Clean(Rng))
  7.         '  End If
  8.     Next
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# c_c_lai
½Ð°Ý¤j¤j:
­n«ç¼Ë³]©w¤~¯à¨ÏºÊ¬Ýµøµ¡¦³§@¥Î?ÁÂÁÂ!!
¦p¤U¹Ï:
test.gif

TOP

¦^´_ 6# yen956
¦p¹Ï»¡©ú¡AÀ³¸Ó©úÁA¤F§a¡I

TOP

¦^´_ 6# yen956

TOP

¥»©«³Ì«á¥Ñ yen956 ©ó 2015-12-6 17:57 ½s¿è

¦^´_ 7# c_c_lai
ÁÂÁÂc¤jªº«ü¾É, ¤F¸Ñ¤F!!

TOP

¥»©«³Ì«á¥Ñ yen956 ©ó 2015-12-6 18:02 ½s¿è

ÁÂÁÂc¤j¸Ô²Óªº¹Ï¸Ñ,
Ãø©Ç§ÚªººÊ¬Ýµøµ¡¤@¤ùªÅ¥Õ, ÁÂÁÂ!!

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD