æä½ ä¸ä¸ªæ¹æ³ï¼è½ç¶æ¥éª¤ç¹çç¹ï¼ä½è½è§£å³é®é¢ï¼èä¸ä¸éº»ç¦
å
æExcelä¸çæ°æ®ï¼å¤å¶å°wordä¸
ç¶åæå¼æ¥æ¾æ¿æ¢çé¢
å¨ä¸é¢éæ©â使ç¨
éé
符â
æ¥æ¾ä¸è¾å
¥[!0-9]
ç¶åç¹å»å
¨é¨æ¿æ¢
ç¶åææ°æ®å¤å¶åExcelä¸ï¼å°±å®ç°äºä½ çè¦æ±ã
å½ç¶å¯ä»¥å©ç¨VBAåèªå®ä¹å½æ°ï¼è¿ä¸ªå°±æç¹å°å¤æäº
追é®VBAèªå®ä¹å½æ°ï¼æä¹å®ä¹åèå¸
追çAlt+F11
å¨å·¦ä¸è§ç©ºç½å¤ï¼ç¹å»å³é®ï¼æå
¥æ¨¡å
æå
¥å¦ä¸ä»£ç ï¼
Function æ°(x As Range)
For i = 1 To Len(x)
If Asc(Mid(x, i, 1)) 47 Then
æ° = æ° & Mid(x, i, 1)
End If
Next
End Function
åå°Excelä¸ï¼ä½¿ç¨å
¬å¼
=æ°(A1)å³å¯
追é®è°¢è°¢èå¸