如何从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了，得到中文。
