如何使用单个换行替换多行换行

Question

我将这些数据包裹在一个单元格中。

This
is



a




bad dream

对于我的报告格式化目的，我需要减少多个换行符。每当两个字符串之间有两个以上的换行符时，它们需要被正好2个换行符替换。所以数据必须看起来像

This
is

a

bad dream

我只是excel脚本的初学者。我尝试使用替代功能但无法获得正确的结果。

可以使用替换来完成某些循环吗？

Answer 1

  

每当两个字符串之间有两个以上的换行符时，它们需要用2个换行符替换。

使用这个小功能：

Function customSubstitute(myStr As String) As String
    customSubstitute = myStr
    Do While InStr(1, customSubstitute, Chr(10) & Chr(10) & Chr(10))
        customSubstitute = Replace(customSubstitute, Chr(10) & Chr(10) & Chr(10), Chr(10) & Chr(10))
    Loop
End Function