求避開公式清空儲存格垃圾代碼

说明书

各位VBA大神,小弟有一難題不會搞,請大家幫手寫個代碼

我手上有一份從其它數據庫導出來的excel表,其中有很多儲存格看上去為空,其實內部有些"垃圾",諸如空格/換行符之類.阻礙了excel功能的應用
而表中我又有公式函數應用.

在些想求一段代碼:　能夠將此表內的所有儲存格檢查一遍,有公式的儲存格跳開不處理,有"垃圾的"儲存格清空此儲存格為空值!
在線等啊,進程受阻,幾萬行及格內的垃圾手工木有辦法搞啊

救大神求助

ctp_119

复制，查找  替换即可

说明书

多謝版主
不行,不知道有些儲存格有問題,剛試過此法

说明书

Sub test()
    Set Rng = Range("A3").CurrentRegion   '?中A3后自??展?元格?域? A1:AA202
    arr = Rng
    For i = 1 To UBound(arr) '遍?各行
        For j = 1 To UBound(arr, 2) '遍?各列
            If IsEmpty(arr(i, j)) Then
                cnt1 = cnt1 + 1 '?查???Empty空白?元格?量
            ElseIf arr(i, j) = "" Then
                cnt2 = cnt2 + 1 '?查??零?度字符的空?元格?量
                arr(i, j) = Empty '?理?Empty空白?元格
            Else
                cnt3 = cnt3 + 1 '???度不?零的其它?元格?量
            End If
        Next
    Next
    MsgBox Rng.Address(0, 0) & vbLf & Rng.Count & vbLf & cnt1 & vbLf & cnt2 & vbLf & cnt3
    Rng.Value = arr '更新??理后的?据
End Sub

曾經有個大神給我我上面的段代碼,在剛從數據庫導出時有用
但我加了公式,變了一下格式就不能用了,求類似以上的代碼改良可以避開公式,查所有儲存格就最好
但是小弟不會VBA啊,

求

ctp_119

加一个判断语句，，，，我看还是不行，不可能你工作表中只有公式单元格和特殊字符单元格呀
把它复制到word中试试，看看特殊符号是什么

说明书

轉word查看好象是長空格,在word內可以取代,在excel內無法批量取代啊,求代碼啊
我不想將檔案轉入word取代再轉回excel,有沒有直接的辦法啊