情欲九歌十大禁片 第1章、excel弘大的一招索求汉字、数字、字母自界说函数

用法：=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'

'索求去汉字

.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情欲九歌十大禁片