EXCEL文本处理（提取数字，汉字，拼音）

第一部分（VBA大法很舒服）

大家可以看到，我们要想把A列的数据进行文字提取，汉字的归汉字，字母的归字母，数字的归数字，那么我们该怎么办呢？？

没关系，打开你的EXCEL，选择【开发工具】选项卡，点击【Visual Basic】，然后麻烦把下面的代码复制进去：

Function MyGet(Srg As String, Optional n As Integer = False)

    Dim i As Integer

    Dim s, MyString As String

    Dim Bol As Boolean

    For i = 1 To Len(Srg)

        s = Mid(Srg, i, 1)

        If n = 1 Then

            Bol = Asc(s) < 0

        ElseIf n = 2 Then

            Bol = s Like "[a-z,A-Z]"

        ElseIf n = 0 Then

            Bol = s Like "#"

        End If

        If Bol Then MyString = MyString & s

    Next

    MyGet = IIf(n = 1 Or n = 2, MyString, Val(MyString))

End Function

激动人心的时刻到来了，输入之后记得不要关闭EXCEL，因为我们这一步只是暂时自定义了一个函数，接下来就让我们开始精彩的文本提取之旅吧。

=myget(a1,1)——提取汉字

=myget(a1,2)——提取字母

=myget(a1,3)——提取数字

话不多说，整个过程我们只不过是复制粘贴，然后操作了一个比IF还简单的函数而已！！！

让EXCEL简洁高效，就是我们的宗旨。

最后，也没啥可关注的，也没什么推荐，希望大家喜欢。