excel提取字符串中數字、中文、英文字符的自定義函數

excel提取字符串中數字、中文、英文字符的自定義函數

Function MyGet(Srg As String, Optional n As Integer = False)‘n為1，取漢字，n為2，取字母，n為0，取數字Dim i As IntegerDim s, MyString As StringDim Bol As Boolean

For i = 1 To Len(Srg)s = Mid(Srg, i, 1)If n = 1 ThenBol = Asc(s) < 0 ‘文字ElseIf n = 2 ThenBol = s Like "[a-z,A-Z]" ‘字母ElseIf n = 0 ThenBol = s Like "#" ‘數字End IfIf Bol Then MyString = MyString & sNext

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

End Function

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。