自定义函数从文本中提取所有字母=QZM()或取数字=QSZ()_

Function QZM(XX As String) As String Dim i&, zifu As String * 1 '一个字符为单位 i = Len(XX) For x = 1 To i zifu = Mid(XX, x, 1) '一个个地截取字符 If zifu Like "[A-Z,a-z]" Then '循环i次,如果英文的,提取 QZM = QZM & zifu '整合 End If Next x End Function Function QSZ(XX As String) As String Dim i&, zifu As String * 1 '一个字符为单位 i = Len(XX) For x = 1 To i zifu = Mid(XX, x, 1) '一个个地截取字符 If zifu Like "[0-9]" Then '循环i次,如果数字的,提取 QSZ = QSZ & zifu '整合 End If Next x End Function