如何用一个换行符replace多个换行符

我有这个数据在一个单一的细胞包装。

This is a bad dream 

对于我的报告格式的目的，我需要减less多个换行。 每当两个string之间有多于2个换行符时，需要换行2个换行符。 所以数据必须看起来像

 This is a bad dream 

我只是一个excel脚本的初学者。 我尝试使用替代function，但不能得到正确的结果。

一些循环可以用替代品来完成吗？

Answer 1

每当两个string之间有多于2个换行符时，需要换行2个换行符。

使用这个小function：

 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