如何分离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)