如何删除Excel中的回车值？

我有代码删除回车值，这是给我想要的结果，但每次我必须打开Excel表和运行macros。请你帮我删除文件夹中的所有文件的回车值，而无需打开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

看起来你真的在这里之后是如何遍历文件夹中的文件，然后在这些文件的每一个上使用你的子例程。 对于第一部分（迭代）看看这个答案 。

然后你可以在循环内调用你的RemoveCarriageReturns()子例程。 你将有一个嵌套的循环与你目前的实现，这是不理想的，但如果性能不是太大，你会没事的。 或者，你可以重构你的RemoveCarriageReturns()子例程，减less使用类似这样的内部循环。