假设A列为中英文混合单元格,B列为中文,C列为英文,分离方法如下:

    1.使用用公式:

彩38     在B2单元格中输入数组公式:

    =MID(A2,MATCH(2,LENB(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)),0),LENB(A2)-LEN(A2))

    公式输入完毕后按Ctrl+Shift+Enter结束。

彩38     在C2单元格中输入公式:

    =TRIM(SUBSTITUTE(A2,B2,""))

    2.使用VBA自定义函数:

    还可以在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

彩38     关闭VBA编辑器,在B2单元格中输入公式:

    =SplitStringChs(A2)

    在C2单元格中输入公式:

    =SplitStringeng(A2)

    这样就完成中英文分离啦。两种方法你更喜欢哪一种呢?