æ®ææç¥ï¼EXCEL没æè½å®ç°è¿ä¸ªåè½çå½æ°åå
¬å¼ï¼ä½æ¯å¯ä»¥èªå®ä¹å½æ°æ¥å®ç°ï¼èªå®ä¹å½æ°çæ¹æ³ï¼å
å½å¶å®ï¼ç¶ååæ¢ï¼ç¶ååç¼è¾åæçå®ï¼å¨ä»£ç çæåæ·»å ä¸é¢çå
容ï¼
Function GetHZ(s) As String
Dim i, ss, s1
ss = ""
For i = 1 To Len(s)
s1 = Mid(s, i, 1)
If Asc(s1) < 0 Then ss = ss & s1
Next i
GetHZ = ss
End Function
Function GetHZN(s) As String
Dim i, ss, s1
ss = ""
For i = 1 To Len(s)
s1 = Mid(s, i, 1)
If Asc(s1) < 0 Or s1 >= "0" And s1 <= "9" Then ss = ss & s1
Next i
GetHZN = ss
End Function
è¿æ ·ä½ çå·¥ä½è¡¨å°±å¯¹äºä¸¤ä¸ªå½æ°ï¼ä½¿ç¨è¿ä¸¤ä¸ªå½æ°è½è·åä½ éè¦çç»æï¼ä¾å¦ï¼
=GetHZ(A1)
=GetHZN(A1)
温馨提示:内容为网友见解,仅供参考