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
对整表文本使用clean()函数
最新推荐文章于 2024-05-28 09:47:07 发布