Excel文本中提取英文或中文

在工作中，我们经常需要整理一些不规则的数据。如从文字中提取英文，从文字中提取数字等等。

如下面的一组数据，需要从中英文本混合的单元格中提取英文和中文，然后将英文放到一列，中文放到另外一列：

VBA详细代码：

1、从包含中英文的文本中提取中文的自定义函数

Function SplitStringChs(TheString)

    Dim n, Chs

    For n = 1 To Len(TheString)

        If Asc(Mid(TheString, n, 1)) < 0 Then

            Chs = Chs & Mid(TheString, n, 1)

        End If

    Next

    SplitStringChs = Chs

End Function

2、从包含中英文的文本中提取英文的自定义函数

Function SplitStringEng(TheString)

    Dim n, Eng

    For n = 1 To Len(TheString)

        If Asc(Mid(TheString, n, 1)) >= 0 Then

            Eng = Eng & Mid(TheString, n, 1)

        End If

    Next

    SplitStringEng = Trim(Eng)

End Function

代码解析：

VBA 函数Asc(string)相当于Excel中的Code()函数，但是VBA中没有定义Code()函数。

Asc(string)返回一个 Integer，代表字符串中首字母的字符代码。string 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何字符，则会产生运行时错误。在非 DBCS 系统下，返回值范围为 0 – 255 。在 DBCS 系统下，则为 -32768 – 32767。

mYDATA=ASC("A")，结果 mYDATA的值 65；

Excel中单元中输入公式=CODE("A") ，值显示65；

在单元格中应用自定义函数或内置函数，如下：

结果显示对比为：

内容摘自：小智雅汇（头条号）