需要移除多余行的视觉基本功能

Question

我需要移除多余行的视觉基本功能。与截图一样。 enter image description here

Answer 1

Dim s As String 
s = "That long string..." 
While (s <> s.Replace(VbNewLine + VbNewLine, VbNewLine) 
s = s.Replace(VbNewLine + VbNewLine, VbNewLine); 
Loop 

Answer 2

不是很清楚你在问什么。

Public Function RemoveEmptyLines(ByVal Value As String) As String 
    RemoveEmptyLines = Replace(Value, vbLf & vbCr, vbNullString) 
End Function