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

大家可以看到，我們要想把A列的數(shù)據(jù)進(jìn)行文字提取，漢字的歸漢字，字母的歸字母，數(shù)字的歸數(shù)字，那么我們該怎么辦呢？？

沒關(guān)系，打開你的EXCEL，選擇【開發(fā)工具】選項卡，點擊【Visual Basic】，然后麻煩把下面的代碼復(fù)制進(jìn)去：

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

激動人心的時刻到來了，輸入之后記得不要關(guān)閉EXCEL，因為我們這一步只是暫時自定義了一個函數(shù)，接下來就讓我們開始精彩的文本提取之旅吧。

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

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

=myget(a1,3)——提取數(shù)字

話不多說，整個過程我們只不過是復(fù)制粘貼，然后操作了一個比IF還簡單的函數(shù)而已?。?！

讓EXCEL簡潔高效，就是我們的宗旨。

最后，也沒啥可關(guān)注的，也沒什么推薦，希望大家喜歡。