在excel中文版下，Left显示为空，Right展示中文和西语。在excel西语版下，left和right都无法识别，展示问号。

1.打开excel，同时按下alt+F11，弹出的窗口即为VBA环境。
2.在左侧偏上界面插入模块，

3.双击打开模块，注意一定是打开模块，粘贴下面代码：
4.回到excel表格界面，在目的单元格内，输入=CN（A1），回车后将会提取中文字符。

Function CN(CH As String) As String
    Dim Chinese As Object
    Set Chinese = CreateObject("VBSCRIPT.REGEXP")
    Chinese.Pattern = "[^\u4e00-\u9fa5]"
    Chinese.IgnoreCase = True
    Chinese.Global = True
    CN = Chinese.Replace(CH, "")
    Set Chinese = Nothing
End Function


提取功能是在“^\u4e00-\u9fa5”实现，实际代表中文字符的正则表达式，如提取西语，请自行查找相关正则。

Quote: 引用 6 楼 nangongxiaobai的回复:

1.打开excel，同时按下alt+F11，弹出的窗口即为VBA环境。
2.在左侧偏上界面插入模块，

3.双击打开模块，注意一定是打开模块，粘贴下面代码：
4.回到excel表格界面，在目的单元格内，输入=CN（A1），回车后将会提取中文字符。

Function CN(CH As String) As String
    Dim Chinese As Object
    Set Chinese = CreateObject("VBSCRIPT.REGEXP")
    Chinese.Pattern = "[^\u4e00-\u9fa5]"
    Chinese.IgnoreCase = True
    Chinese.Global = True
    CN = Chinese.Replace(CH, "")
    Set Chinese = Nothing
End Function


提取功能是在“^\u4e00-\u9fa5”实现，实际代表中文字符的正则表达式，如提取西语，请自行查找相关正则。

西语和其他拉丁语系是一样的正则，和英语一样的，您就一起帮我做了吧

alt+f11快捷键在我电脑不好用呢，怎么换个方式进入VBA环境呢

Quote: 引用 10 楼  晓 的回复:

alt+f11快捷键在我电脑不好用呢，怎么换个方式进入VBA环境呢

https://jingyan.baidu.com/article/3f16e0031075a02590c1034e.html

Quote: 引用 10 楼  晓 的回复:

alt+f11快捷键在我电脑不好用呢，怎么换个方式进入VBA环境呢

https://jingyan.baidu.com/article/3f16e0031075a02590c1034e.html

Quote: 引用 10 楼  晓 的回复:

alt+f11快捷键在我电脑不好用呢，怎么换个方式进入VBA环境呢

https://jingyan.baidu.com/article/3f16e0031075a02590c1034e.html

Quote: 引用 11 楼 nangongxiaobai 的回复:

Quote: 引用 10 楼  晓 的回复:

alt+f11快捷键在我电脑不好用呢，怎么换个方式进入VBA环境呢

https://jingyan.baidu.com/article/3f16e0031075a02590c1034e.html

还有一种情况（见图）：西班牙语在前，中文在后，中文和西班牙语之间有空格，然后在一行中重复多好个这样的中西单词和词组。怎么能把它们也分列显示呢？中文一列，西语一列。



具体Excel文件在这：
链接：https://pan.baidu.com/s/1Q_6nI3hKXgWLUPLZPhALmw 
提取码：ij91 

Quote: 引用 11 楼 nangongxiaobai的回复:

Quote: 引用 10 楼  晓 的回复:

alt+f11快捷键在我电脑不好用呢，怎么换个方式进入VBA环境呢

https://jingyan.baidu.com/article/3f16e0031075a02590c1034e.html

能否至少帮忙解决一下空格的问题呢

方法：快速填充和公式。要求excel能够使用快速填充功能。WPS不可以

方法：快速填充和公式。要求excel能够使用快速填充功能。WPS不可以

1.打开excel，同时按下alt+F11，弹出的窗口即为VBA环境。
2.在左侧偏上界面插入模块，

3.双击打开模块，注意一定是打开模块，粘贴下面代码：
4.回到excel表格界面，在目的单元格内，输入=CN（A1），回车后将会提取中文字符。

Function CN(CH As String) As String
    Dim Chinese As Object
    Set Chinese = CreateObject("VBSCRIPT.REGEXP")
    Chinese.Pattern = "[^\u4e00-\u9fa5]"
    Chinese.IgnoreCase = True
    Chinese.Global = True
    CN = Chinese.Replace(CH, "")
    Set Chinese = Nothing
End Function


提取功能是在“^\u4e00-\u9fa5”实现，实际代表中文字符的正则表达式，如提取西语，请自行查找相关正则。

想制作西班牙语和中文词汇和短语表，怎样将西班牙语和中文自动分成两列，用正则或Excel如何解决呢？例如下面这种格式：

inobservancia为遵守 
interrogatorio 质问
irretroactividad不溯既往性 
alegación辩护
alta traición叛国罪
alteración del orden扰乱治安
anteproyecto法案
anulación废除
apelar上诉
recurrir上诉
aplicación de la ley法律的实施
audiencia pública公审
audiencia审讯