Brauchen Sie die visuelle Grundfunktion, die zusätzliche Zeilen entfernen

Question

Ich brauche die visuelle Grundfunktion, die zusätzliche Zeilen entfernen. So wie der Screenshot. 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

nicht ganz klar, was Sie fragen.

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