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