5

何が起こっているのかわかりませんが、帰りの馬車と思われるものを含むセルがあります。TRIM()これらの文字を削除するためにCLEAN()、、、=SUBSTITUTE(A1,CHAR(10),"")および多くのマクロを 試しました。

これらの文字を削除してセルをアクティブにする唯一の方法は、最後の文字の近くで削除をクリックし、Enter をクリックすることです。

足りないものはありますか？プログラムでこれを行う方法はありますか？

4

3 に答える 3

14

次のマクロは、関数Trim()とClean()関数を使用して、印刷できないすべての文字と先頭と末尾のスペースを削除します。

Sub Clean_and_Trim_Cells()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim s As String
    For Each c In ActiveSheet.UsedRange
        s = c.Value
        If Trim(Application.Clean(s)) <> s Then
            s = Trim(Application.Clean(s))
            c.Value = s
        End If
    Next
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub
于 2013-04-28T03:46:40.577 に答える
1

私が試してみました

ws.Cells(i, j) = Replace(ws.Cells(i, j), Chr(13), "")

そして成功します。

于 2014-09-27T22:15:20.940 に答える