Excel单元格中提取中文

转载于 2015-03-09 19:01:44 发布 · 425 阅读

·

0

·

0 ·

CC 4.0 BY-SA版权

原文链接：http://blog.51cto.com/foolishfish/1618783

本文介绍如何在Excel中使用自定义函数提取中文和全角字符，包括公式编写和应用步骤。

打开Excel，按下Alt+F11
插入 -- 模块 -- 粘贴以下公式

Function getcn(mystr As Range)
'提取中文以及全角字符
Dim temp As String
getcn = ""
For i = 1 To Len(mystr)
    temp = Mid(mystr, i, 1)
    If Evaluate("LenB(""" & temp & """)") = 2 Then
        getcn = getcn & temp
    End If
Next
End Function

然后在Excel中通过公式 =getcn(A1) 引用和计算

转载于:https://blog.51cto.com/foolishfish/1618783