万能的吧友，请问怎么清理掉这些白字

'运行一下看看白色字符是否还存在
Option Explicit
Sub 删除前景色为白色的字符()
　Dim i, t As String, r As Range
　Application.ScreenUpdating = False
　For Each r In ActiveSheet.UsedRange
　　For i = 1 To Len(r.Value)
　　　If r.Characters(i, 1).Font.Color <> vbWhite Then t = t & Mid(r.Value, i, 1)
　　Next
　　r.Value = t: t = vbNullString
　Next
　Application.ScreenUpdating = True
End Sub