如何分离Excel单元格中的英文和汉字

如何分离Excel单元格中的英⽂和汉字
分离Excel单元格中的英⽂和汉字
时我们需要在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)。