excel提取字符串中数字、中文、英文字符的自定义函数

office教程网 2023-07-20 19:34:24

后台-系统设置-扩展变量-手机广告位-内容正文顶部

摘要： 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)...

Function MyGet(Srg As String, Optional n As Integer = False)
‘n为1，取汉字，n为2，取字母，n为0，取数字
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

excel如何将数组公式中的TRUE或FALSE转化为1或0
如果一个数组公式中返回逻辑值TRUE或FALSE，Excel中的一些函数会忽略这些逻辑值，如SUM函数。要让这些逻辑值参与算术运算，必需将其转化为数值才行。即将TRUE转化为1，将FALSE转化为0。可以使用下面的三种方法进行转换： 1. 乘以1：TRUE * 1 = 1 FALSE * 1 = 0 2. 加0： T

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

End Function