删除换行符,返回托架以及Excel单元格中的所有前导空格

Question

我不知道发生了什么,但是我的单元格包含了一个似乎是返回车厢的单元格.我已经试过TRIM(),CLEAN(),=SUBSTITUTE(A1,CHAR(10),"")和一些宏来删除这些字符.

删除这些字符以使单元格处于活动状态的唯一方法是,单击最后一个字符附近的"删除",然后单击"输入".

有什么我想念的吗？有没有办法以编程方式执行此操作？

Answer 1

以下宏将使用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