½Ð±Ð¡GVBA ¦p¦ó§PÂ_¤¤­^¤å¡H

storylai

§Úªº±¡ªp¡G
1- ·s±µ¤âªº¤u§@¬O¾ã²z¨Ó¦Û¤£¦P¨t²Î¤£¦P¨Ó·½ªº³øªí¡A
   ¦U³øªíªº¡u©m¦W¡v³¡¥÷¦³¤¤¦³­^¡A
   ¦ý¤¤¤å¦W¦r©¹©¹¥X²{¡u±i+ªÅ®æ+¤TÂסv¡A
   ¦p¡u±i ¤TÂסv¥X²{¤F¡A­n¤â°Ê§ï¡I
   ­Y¬Ýº|¤F¶i¤F database «h§ó³Â·Ð¡C

2- °ÝÃD¬O¡A§Úªº³øªí¤¤­^¤å¦W³£¦b¦P¤@Ä椤¡A
    ­^¤å¦W¥²¶·«O¯dªÅ®æ¡A
    ¤¤¤å¦W¦³¥b§Î¤@­Ó¡B¨â­Ó©Î¥þ§Î¤@­ÓªÅ®æ¡C
    ±¡ªp¦p¤U¨Ò¡G
        Taylor Swift  
        ±i ´f©f
        Nicki Minaj   
    ¡@ ½²¨ÌªL‎
        Ä¬   Íº
        Flo Rida
        ±ä¡@®æ
        ©P¡@ªN­Û‎
3- ³oºØ±¡ªpÁÙ¥X²{¦b¨ä¥¦¦p¼Æ¦r¡A¦p 12,345¡A¬v¨t²Î´N°¾­n¥X 12 345
   ¦Ó¤¤­^¤å¦a§}ªºªÅ®æ«hÄÝ©ó¿é¤J¿ù»~¡I

²{®É¨C¤Ñªº·s¸ê®Æ¡A§Ú¬O¥Î¤â°Ê±Æ§Ç¤â°Ê­×§ï¡A
¦ý¹L©¹ªº¸ê®Æ¤Ó¦h¤F¡A
¦]¦¹¡A·Q½Ð±Ð¤j®a¡A¯à§_¥Î VBA §PÂ_¤¤­^¤å¡AµM«á¦A§R°£ªÅ®æ¡C



ÁÂÁ¤j®a¡C

ML089

¦pªG¥Î¤½¦¡
=IF(LEFT(A1)<="z",A1,SUBSTITUTE(SUBSTITUTE(A1," ",),"¡@",))
¤U©Ô

GBKEE

¦^´_ 1# storylai
ªþÀÉ»¡©ú¬Ý¬Ý

storylai

¦^´_  storylai
ªþÀÉ»¡©ú¬Ý¬Ý
GBKEE µoªí©ó 2014-1-9 08:59

¬Q±ß¦Ü¤µ¤´¤W¶Ç¤£¤F¡C

¬Q±ß°µ¤F¤p¤pµ{¦¡¡Aµ¹¤j®a¤@¯º¡C
¥¦°ò¥»¯à¹F¨ì§Úªº­n¨D¡A¤U¤@¨B·Q¥Î Trim ¥ý§R¥h¦W¦rªº¨âÃäªÅ®æ¡A
±µµÛ¬O§R¦r¦ê¤¤ªº¡u¥b§Î¤Î¥þ§ÎªÅ®æ¡v¤F¡C

¥Ñ©ó¤u§@¤º®e¯A¤ÎÁô¨p¡A¬G¦Û¤v§Ë¤F­Ó¬ÛÃþªºªþ¥ó¡C

¤º®e¡G   (ªÅ¦æ¡B¤¤¤å¡B­^¤å¡B¼Æ¦r¡B¨ä¥¦ µ¥Äæ¬O§P§O«á°µ°O¿ý¡A¤è«K®Ö¹ï)

A            B        C        D          E        F
«È¦W             ªÅ¦æ        ¤¤¤å    ­^¤å    ¼Æ¦r        ¨ä¥¦


W                        *
x                        *
Y                        *
z                        *
¤B¦u¤¤                *       
¥Ð¬îÔ»                *
§f¥É¬Â                *
§õÂE¶v                *
ªL°ê¥¿                *
¬x¨q¬W                *
³¯©É¼ä                *
³¯¸`¦p                *
±i¹Å°p                *
¶OÂE®õ                *
·¨Ã£Äí                *
½²·×·ã                *
        *

1. Sub TestChinese()
   
2.         LastRows = Range("A65536").End(xlUp).Row
   
3.         For i = 2 To LastRows
   
4.    
   
5.             aString = Cells(i, 1)
   
6.             
   
7.             If aString = "" Then
   
8.                Cells(i, 2) = "*"
   
9.             Else
   
10.                         aChar = Left(aString, 1)
    
11.                                     If Asc(aChar) < 0 Then
    
12.                                         Cells(i, 3) = "*"
    
13.                                     ElseIf aChar Like "[A-Za-z]" Then
    
14.                                         Cells(i, 4) = "*"
    
15.                                     ElseIf aChar = 48 Or aChar <= 57 Then
    
16.                                             Cells(i, 5) = "*"
    
17.                                     Else
    
18.                                               Cells(i, 6) = "*"
    
19.                                     End If
    
20.             End If
    
21.         
    
22.         Next i
    
23. 
    
24. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 1# storylai

1. Sub ex()
   
2. Dim A As Range
   
3. With ¤u§@ªí1
   
4. For Each A In .Range(.[A1], .[A1].End(xlDown))
   
5. n = Asc(A)
   
6.    If Asc(A) > 255 Or Asc(A) < 1 Then A = Replace(A, " ", ""): A = Replace(A, "¡@", "")
   
7. Next
   
8. End With
   
9. End Sub

½Æ»s¥N½X