Excel 使用vba将包装文本转换为普通文本

我需要一个vba代码来将包装文本转换为普通文本。它的痛苦复制到记事本n粘贴回来。 提前谢谢

Sub unwrap()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim str As String

    For Each char In ActiveSheet.UsedRange

        str = char.Value

        If Trim(Application.Clean(str)) <> str Then
            str = Trim(Application.Clean(str))
            char.Value = str
        End If

    Next

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

End Sub

子展开（）
Application.ScreenUpdating=False
Application.Calculation=xlCalculationManual
作为字符串的Dim str
对于ActiveSheet.UsedRange中的每个字符
str=char.Value
如果修剪（应用清洁（str））str，则
str=修剪（应用清洁（str））
char.Value=str
如果结束
下一个
Application.ScreenUpdating=True
Application.Calculation=xlCalculationAutomatic
端接头

在黑暗中拍摄

这就是你想要的吗

Sub Sample()
    Dim ws As Worksheet
    Dim nCalc As Long

    On Error GoTo Whoa

    Application.ScreenUpdating = False
    nCalc = Application.Calculation
    Application.Calculation = xlCalculationManual

    '~~> Replace this with the actual sheet name
    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        .Cells.Replace What:=Chr(160), _
        Replacement:="", _
        LookAt:=xlPart, _
        SearchOrder:=xlByRows, _
        MatchCase:=False
    End With

LetsContinue:
    Application.ScreenUpdating = True
    Application.Calculation = nCalc

    Exit Sub
Whoa:
    MsgBox Err.Description
End Sub

---

很抱歉，西达斯，我问了，因为我被卡住了，我不能接受你的评论。是的，我在发帖时没有表示感谢。

是的，我在发帖时没有表示感谢

你能告诉我们你做了什么吗？你看过我上次评论中的链接了吗？嗯，我没有，是的，我甚至没有时间去研究，我需要立即的解决方案，所以我已经发布了。如果你能理解问题的紧迫性，你能用代码更新问题吗。阅读评论中的代码真的很困难。谢谢大家，对帖子中的错误表示歉意。spl感谢@SiddharthRout它工作得很好：）