如何在excel中提取英文字母和中文字母

自定义函数
'自定义函数MyGet提取字符串中数字?中文?英文字符
'函数说明

'插入模块，复制上面的VBA代码粘贴

'=MyGet(A2,0) 提取A2单元格e69da5e887aae799bee5baa6e79fa5e98193361中的数字

'=MyGet(A2,1) 提取A2单元格中的汉字

'=MyGet(A2,2) 提取A2单元格中的字母

Function MyGet(Srg As String, Optional N As Integer = False)

Dim i As Integer
Dim S, MyString As String
Dim Bol As Boolean

For i = 1 To Len(Srg)
S = Mid(Srg, i, 1)
If N = 1 Then
Bol = Asc(S) < 0
ElseIf N = 2 Then
Bol = S Like "[a-z,A-Z]"
ElseIf N = 0 Then
Bol = S Like "#"
End If
If Bol Then MyString = MyString & S
Next

MyGet = IIf(N = 1 Or N = 2, MyString, Val(MyString))

End Function

假设
A1内容 sectionn. 部 分 章 节
B1输入公来式自后按SHIFT+CTRL+ENTER
=RIGHT(A1,LEN(A1)-MATCH(,0/(MID(A1,ROW(1:99),1)=" "),)-1)

C1输入公式
=substitute(a1,b1,)
公式测试通过
如果中间没知有空格,公式需要做适当道修改
表格复制到word里面，把不需要的查找、替换掉，剩下的在复制到excel中。
【替换全部数字】方法是把该列单元格复制到WORD中，打开查找与替换，查找内容输入 ^# 全部替换为空，数字就没有了！再复制回EXCEL就可以！抄
【替换全部字母】方法是把该列单元格复制到WORD中，打开查找百与替换，查找内容输入 ^$ 全部替换为空，字母就没有了！再复制回EXCEL就可以！
【替换全部汉字】方法是把该列单元格复制到WORD中，打开查找与替换，在弹出的（查找和替换）窗口的（高级→查找）内容处填上[一-龥] ，（提示：包含[]及其内的所有字符全复制过去。“龥”字是繁体，拼度音为yù，谷歌输入法可切换简繁输入），注意勾选“使用通配符”，这样就能查找所有中文字体，最后替换为空，就可以删除全部的中文了。

分列是个不错的方法。如果使用纯公式，可以这样写
=MID(A1,FIND("@",SUBSTITUTE(A1," ","@",LEN(A1)-LEN(SUBSTITUTE(A1," ",))))+1,10)