对整表文本使用clean()函数

Sub Text_Clean()
Dim arr, i, j, m, n, sh As Worksheet
For Each sh In Worksheets
    arr = sh.UsedRange
    m = UBound(arr)
    n = UBound(arr, 2)
    For i = 1 To m
        For j = 1 To n
            arr(i, j) = Application.Clean(arr(i, j))
        Next
    Next
    sh.[a1].Resize(m, n) = arr
    Set arr = Nothing
Next
End Sub