如何从EXCEL中快速提取中文?

发布网友 发布时间：2022-04-19 21:21

我来回答

共5个回答

热心网友 时间：2023-06-29 15:10

给你一个自定义函数吧，操作如下：按ALT+F11，或
依次点工具，宏，VB编辑器，弹出的编辑器中点插入模块，新弹出的空白窗口中输入以下代码：
Function getchn(MyValue As Range)

Dim i As Integer

Dim chn As String

For i = 1 To Len(MyValue)

If Asc(Mid(MyValue, i, 1)) < 0 Then

chn = chn & Mid(MyValue, i, 1)

End If

Next

getchn = chn

End Function

关闭VB编辑器窗口，回到表格中，

选中你要显示中文字符的单元格，如B1，点插入，函数，选择自定义函数，这时函数列表中有一个“getchn”这样的函数，这就是你刚才编辑的那段VB编码代表的一个自定义函数。其用法和EXCEl中函数用法是一样的，其参数就是你包含中中文那个单元格，比如A1单元格，就是你的“”字符串。结果是经理两个字显示在B1中，

写以上过程是让你明白，刚才编辑的这个函数是什么意思，其实，你可以直接在B1中输入：=getchn(A1)
得到的结果就是“经理”两个字，
光标指向B1单元格右下角小黑点，光标会变成小黑十字，双击左键，完成。

但愿你能看明白。

回答者： NG_677 - 江湖新秀 五级的答案，对于例子来说是一个简单的办法，但是其对于“Manager经理A1”这样的混合数据就不行了。

另外，如你所问的：如果你想只提取英文，你可以另编辑一个自定义函数（别叫getchn，可以叫geten这样的随便你喜欢了），然后编码中的“If Asc(Mid(MyValue, i, 1)) < 0 Then ”语句把<0改成>0就OK了。

热心网友 时间：2023-06-29 15:10

假设你的数据在A列，公式=MID(A1,MATCH(" ",MIDB(A1,ROW($1:$20),1),),LENB(A1)-LEN(A1))数组公式，三键结束

热心网友 时间：2023-06-29 15:11

我平时只是把中英文分开打在不同的单元格内，要看中文时，把英文那列（行）隐藏。要是打印的话，就复制一个表格，然后把不需要的中（英）部分删除，就可以打印了。方法是什么并不重要，重要的是你自己用习惯了哪一种

热心网友 时间：2023-06-29 15:11

我知道了：英文是单字节，中文是可以双字节的，两个的差就是中文的字数了。再用RIGHT得到中文。677厉害啊！

热心网友 时间：2023-06-29 15:12

旁边一列输入公式：
=RIGHT(E5,LENB(E5)-LEN(E5))，拖一下就OK了，得到中文。