删除Excel单元格中的换行符、回车框和所有前导空格

删除Excel单元格中的换行符、回车框和所有前导空格,excel,vba,Excel,Vba,我不知道发生了什么,但我有一些细胞,其中似乎有一个返回车厢。我尝试了TRIM(),CLEAN(),=SUBSTITUTE(A1,CHAR(10),“”)和许多宏来删除这些字符 删除这些字符的唯一方法是,单击最后一个字符附近的“删除”按钮,然后单击“输入”,以激活单元格 有什么我遗漏的吗?有没有办法通过编程实现这一点?以下宏将使用Trim()和Clean()函数删除所有不可打印的字符以及开头和结尾空格: Sub Clean_and_Trim_Cells() Application.Scre

我不知道发生了什么,但我有一些细胞,其中似乎有一个返回车厢。我尝试了
TRIM()
CLEAN()
=SUBSTITUTE(A1,CHAR(10),“”)和许多宏来删除这些字符

删除这些字符的唯一方法是,单击最后一个字符附近的“删除”按钮,然后单击“输入”,以激活单元格


有什么我遗漏的吗?有没有办法通过编程实现这一点?

以下宏将使用
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
Sub-Clean_和_-Trim_单元()
Application.ScreenUpdating=False
Application.Calculation=xlCalculationManual
像线一样变暗
对于ActiveSheet.UsedRange中的每个c
s=c.值
如果修剪(应用清洁),则
s=阀内件(应用清洁)
c、 值=s
如果结束
下一个
Application.ScreenUpdating=True
Application.Calculation=xlCalculationAutomatic
端接头

一个更简单的解决方案是查找替换:对于查找,同时按alt和数字010(在10个键盘上),然后用空格替换

您可以通过高亮显示包含回车符的单元格来进行批量替换

我试过了

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

成功。

您看到了吗?我确实看了一下,尽管解决方案没有解决问题。您是否尝试了Alt160技巧?删除问题的最后一个字符的代码是什么?你可以在字符之间循环并调试。打印每个字符的代码:这将有助于删除它们。蒂姆说了什么。有时,这些特殊的角色看起来像他们不是的东西,甚至看起来他们什么都不是。如果您准确地识别出哪些角色冒犯了您,那么您应该能够删除它们!我尝试了alt+10,但无效。我不知道alt+010,它工作得很好。谢谢