开发长沙小程序 第1章、excel广泛的一招索取汉字、数字、字母自界说函数
发布日期：2024-08-08 15:03 点击次数：77
用法：=tq(选拔单位格, 输入索取类型)，图举例下：
1、去掉汉字，公式：=tq(A3,'-hz')
图片
2、索取汉字，公式：=tq(A3,'+hz')
图片
3、索取数字，公式：=tq(A3,'+sz')
图片
其他用法访佛，开发长沙小程序以此类推即可。第二个参数索取类型讲授：
+hz：取汉字
+sz：取数字
+zm：取字母
-hz：取非汉字
-sz：取非数字
-zm：取非字母
自界说函数代码：
Function TQ(rng As String, types As String) As String
Dim regex As Object
Set regex = CreateObject('vbscript.regexp')
With regex
.Global = True
Select Case types
Case Is = '-hz'
app'索取去汉字
七月好运滚滚来 重庆下半年首注头奖花落奉节
.Pattern = '[一-﨩]'
Case Is = '-zm'
'索取去字母
.Pattern = '[a-zA-Z]'
Case Is = '-sz'
'索取去数字
.Pattern = '[0-9\.]'
Case Is = '+hz'
'取汉字
.Pattern = '[^一-﨩]'
Case Is = '+zm'
'取字母
.Pattern = '[^a-zA-Z]'
Case Is = '+sz'
'取数字
.Pattern = '[^0-9\.]'
End Select
TQ = .Replace(rng, '')
End With
Set regex = Nothing
End Function开发长沙小程序
本站仅提供存储办事，通盘施行均由用户发布，如发现存害或侵权施行，请点击举报。