VBA：除中文外，全部刪除

同事的檔案中，很喜歡在資料中加入其它符號，
好處是一看就知，問題是很難資料化。

上網中看到一則程式碼在刪除儲存格中非中文的字元
，很合用。


Sub nn() '只留中文
Dim RegExp As Object
Dim A As Range
Set RegExp = CreateObject("vbscript.regexp")
RegExp.Global = True
RegExp.ignorecase = True
RegExp.Pattern = "[a-zA-Z0-9!&*]"
'For Each A In [A3:A138]

'FinalRow = Range("e65536").End(xlUp).Row

For Each A In Range("B2:B" & Range("B65536").End(xlUp).Row)
A.Offset(, 8) = RegExp.Replace(A, "")
' A = RegExp.Replace(A, "")
Next
End Sub