Excel 从工作表中删除所有回车

回车符破坏了我用来创建唯一标识符和日期的连接公式

尝试插入VBA以删除activesheet中的所有回车符，但我使用了一些代码，IF语句崩溃了。 当我将鼠标悬停在黄色调试线上时，会弹出“MyRange=Error 2015”

下面有什么想法吗？还有更好的代码吗

谢谢

Sub RemoveCarriageReturns()
    Dim MyRange As Range
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    For Each MyRange In ActiveSheet.UsedRange
        If 0 < InStr(MyRange, Chr(10)) Then
            MyRange = Replace(MyRange, Chr(10), "")
        End If
    Next

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

Sub-RemoveCarriageReturns（）
将MyRange变暗为Range
Application.ScreenUpdating=False
Application.Calculation=xlCalculationManual
对于ActiveSheet.UsedRange中的每个MyRange
如果0

简单地说：

ActiveSheet.UsedRange.Replace Chr（10），“”，xlPart

您可能还需要替换Chr（13），以防返回的是换行符。非常感谢各位！仅供参考，Chr（10）实际上是一个换行符，而13是一个回车符，反之亦然。如果您同时需要：

ActiveSheet.UsedRange.Replace vbCrLf，”，xlPart

简单地说：

ActiveSheet.UsedRange.Replace Chr（10），”，xlPart

您可能还需要替换Chr（13），以防返回的是换行符。谢谢各位！仅供参考，Chr（10）实际上是一个换行符，而13是一个回车符，反之亦然。如果两者都需要：

ActiveSheet.UsedRange.Replace vbCrLf，“，xlPart