用法：=tq(選擇單元格, 輸入提取類型)，圖例如下：

1、去掉漢字，公式：=tq(A3,'-hz')

2、提取漢字，公式：=tq(A3,'+hz')

3、提取數(shù)字，公式：=tq(A3,'+sz')

其他用法類似，依此類推即可。第二個(gè)參數(shù)提取類型解釋：

+hz：取漢字

+sz：取數(shù)字

+zm：取字母

-hz：取非漢字

-sz：取非數(shù)字

-zm：取非字母

自定義函數(shù)代碼：

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'

'提取去數(shù)字

.Pattern = '[0-9\.]'

Case Is = '+hz'

'取漢字

.Pattern = '[^一-﨩]'

Case Is = '+zm'

'取字母

.Pattern = '[^a-zA-Z]'

Case Is = '+sz'

'取數(shù)字

.Pattern = '[^0-9\.]'

End Select

TQ = .Replace(rng, '')

End With

Set regex = Nothing

End Function