值得收藏的ExcelVBA | 在混合數據單元格中快速提取英文、數字、中文

相信許多人經常會遇到一些不懂Excel的同事和老闆，將一份好好的資料在Excel中填寫的是亂七八糟，甚至有時在一個單元格中弄了N多個信息，又是中文，又是英文，又是數據。這裡易老師給大家分享一個不錯的VBA，可以將單元格中混合數據包含中文、英文、數據信息單獨提取出來。

混合數據預覽

先看看混亂的數據吧！也許你的數據比這更亂，不過也沒關係，我們可以輕鬆提取我們想要的中文或英文或數據。

開始提取

❶ 首先是【開發工具】-【代碼】-【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(A2,1)】是提取所有中文
【=myget(A2,2)】是提取所有英文
【=myget(A2)】是提取所有的數據