Excel VBA編程，通配符，批量替換、篩選所有數字、字母、常見標點符號、中文字符

代碼如下：(樣本文件見附件)

Dim?regX?As?Object,?s?As?String,?i,?j

Set?regX?=?CreateObject("vbscript.regeXP")

For?i?=?1?To?Cells(Rows.Count,?1).End(3).Row

With?regX

.Global?=?True

For?j?=?2?To?5

Select?Case?j

s?=?"[^\u4e00-\u9fa5]"?'取漢字

Case?3

s?=?"\D"?'取數字

Case?4

s?=?"[^a-zA-Z]"?'取字母

Case?5

s?=?"[\u4e00-\u9fa50-9a-zA-Z]"?'取符號

End?Select

.Pattern?=?s

Cells(i,?j)?=?.Replace(Cells(i,?1),?"")

Next?j

End?With

Next

End?Sub