会用excel表格中的VAB的高手进

excel表格中，每一个单元格里面都有中文和英文，用VBA写一个一键删除所有单元格内中文的程序，单元格内中文字体为宋体，英文为另外一种字体arial narrow，字体都为12号

Sub test()
Dim rg As Range, Rxp
Set Rxp = CreateObject("VBScript.RegExp")
For Each rg In ActiveSheet.UsedRange
  With Rxp
   .Global = True
   .Pattern = "\W"
   rg.Value = .Replace(rg, "")
  End With
Next rg
End Sub

Dim i As Integer Dim C As String Sub CC() Dim rC As Range Sheets(1).Select For Each rC In Sheets(1).UsedRange i = 1 C = rC Call doClear(i, C) rC = Trim(C) Next End Sub Private Sub doClear(s, Cs) If i > Len(Cs) Then Exit Sub If Abs(Asc(Mid(Cs, s, 1))) > 128 Then C = Replace(Cs, Mid(Cs, s, 1), "", , , vbBinaryCompare) Else i = i + 1 End If Call doClear(i, Cs) End Sub