有時我們需要在Excel中將單元格中所包含的英文和中文分離出來,讓分離出的中文和英文分別放到其他單元格中。如圖:
假如A2單元格中包含中英文混合內容,可以用下面的方法來進行分離:
1.使用用公式:
在B2單元格中輸入數組公式:
=MID(A2,MATCH(2,LENB(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)),0),LENB(A2)-LEN(A2))
公式輸入完畢后按Ctrl+Shift+Enter結束。
在C2單元格中輸入公式:
=TRIM(SUBSTITUTE(A2,B2,""))
2.使用自定義函數:
還可以在VBA中自定義一個函數,然后在Excel表格中使用該函數進行分離。方法是:按Alt+F11,打開VBA編輯器,單擊菜單“插入→模塊”,在右側的代碼窗口中輸入下列代碼:
Function SplitStringChs(TheString)
Dim n, Chs
For n = 1 To Len(TheString)
If Asc(Mid(TheString, n, 1)) < 0 Then
Chs = Chs & Mid(TheString, n, 1)
End If
Next
SplitStringChs = Chs
End Function
Function SplitStringEng(TheString)
Dim n, Eng
For n = 1 To Len(TheString)
If Asc(Mid(TheString, n, 1)) >= 0 Then
Eng = Eng & Mid(TheString, n, 1)
End If
Next
SplitStringEng = Trim(Eng)
End Function
關閉VBA編輯器,在B2單元格中輸入公式:
=SplitStringChs(A2)
在C2單元格中輸入公式:
=SplitStringeng(A2)