写一个宏,选中需要清理的区域,按 Alt + F8,执行 Sub Clear() ‘清除英文和数字之外的内容 Dim ag As Range For Each ag In Selection dt = ag.Value ct = Len(dt) i = 1 s = While i = ct c = Asc(Mid(dt, i, 1)) If (c 47 And c 58) Or (c 64 And c 91) Or (c 96 And c 121) Then s = s + Chr(c) End If i = i + 1 Wend ag.Value = s Next End Sub