如何删除excel中的回车值？

Question

我有代码删除回车值，它给出了我想要的结果，但每次我必须打开Excel工作表并运行宏。可以帮我删除文件夹中所有文件的回车值而无需打开excel文件

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

先谢谢。

Answer 1

在此之后您似乎真正想要的是如何遍历文件夹中的文件，然后在每个文件中使用您的子例程。对于第一部分（迭代），请查看this answer。

您可以在循环内调用RemoveCarriageReturns()子例程。你有一个嵌套的循环与你当前的实现，这是不理想的，但如果性能影响不是太大，你会没事的。或者，您可以使用this之类的内容重构RemoveCarriageReturns()子例程，以减少内部循环。