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)......
For i = 1 To Len(Srg)s = Mid(Srg, i, 1)......
