ªð¦^¦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)

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-7 18:24 ½s¿è

¦^´_ 15# paddyliu
¥t¥~¡A¥i¥H¤£¥Î¤H¤u®Ø¿ï¡G
  1. Sub §R°£ªÅ®æ2()
  2.     Dim Rng As Range
  3.    
  4.     For Each Rng In sheet1.UsedRange
  5.         Rng = Trim(Application.Clean(Rng))
  6.     Next
  7. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-7 10:54 ½s¿è

¦^´_ 15# paddyliu

F.png

TOP

½Ð°Ý¬O§_­n¥ý§âAÄæ¿ï¥X¨Ó¡H­Y°±¯d¦b¨ä¥¦Àx¦s®æ°õ¦æVBA¦n¹³ÁÙ¬OµLªk²M°£¬Ý¤£¨£ªºªÅ®æ

TOP

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

¦^´_ 13# c_c_lai
ÁÂÁ¦A¤T«ü¾É,
²×©ó¸Õ¥X¨Ó¤F,
1. ¤Ä¿ïºÊµøµ¡
2. °»¿ù¡÷·s¼WºÊ¬Ý¦¡
3. ¿é¤J¹Bºâ¦¡©Î±ýÀË´úÅܼÆ->«ö½T»{
4. F8
¯u¤ß·PÁÂc¤j¤j, thanks a lot!

TOP

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

¦^´_ 12# yen956
§A¥i¥H¤@¤f®ð³sÄò (ÂI¿ï±ý°»´úÅܼƳf¹Bºâ¦¡(·Æ¹«¥kÁä)
->¿é¤J¹Bºâ¦¡©Î±ýÀË´úÅܼÆ->«ö½T»{)
©Î¤À¦¸¿é¤J§A­n°»´úªºÅܼơA©Î§PÂ_¡A¨Ò¦p¡G
Asc(Mid(Rng, 1, 1))   '  Àˬd²Ä¤@­Ó¦r¤¸­È¬°¦ó
Asc(Mid(Rng, 2, 1))   '  Àˬd²Ä¤G­Ó¦r¤¸­È¬°¦ó
Asc(Mid(Rng, 3, 1))   '  Àˬd²Ä¤T­Ó¦r¤¸­È¬°¦ó
Asc(Mid(Rng, 4, 1))   '  Àˬd²Ä¥|­Ó¦r¤¸­È¬°¦ó
Asc(Mid(Rng, 5, 1))   '  Àˬd²Ä¤­­Ó¦r¤¸­È¬°¦ó
Rng                               '  Àˬd Rng ¥Ø«e­È¬°¦ó
Mid(Rng, 4, 1)             '  Àˬd²Ä¥|­Ó¦r¤¸¬°¦ó
.
.
µ¥µ¥¦h¶µ¹Bºâ¦¡ºÊ´ú¡C

TOP

¦^´_ 11# c_c_lai
ÁÂÁÂc¤j¦A¤T«ü¾É,
¥»¥H¬°À³¥i¥H¸Õ¥X¨Ó,
µ²ªGÁÙ¦b¸Õ!?
(¥u¥X¨Ó¤@¦C, ¦ýRng¤w·|¤@ª½ÅÜ, ¤£·|¦V¤U®i¶},
À³¸Ó¤]¥i¥HºÊ¬Ý·Q­n¬Ýªº, ÁÂÁÂ!!)

TOP

¦^´_  c_c_lai
ÁÂÁÂc¤jªº«ü¾É, ¤F¸Ñ¤F!!
yen956 µoªí©ó 2015-12-6 17:55

#8 ¬O¤£¬Oµ¹§A¸Ñµª¤F¡H

TOP

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

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

TOP

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

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

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD