[Spirosgr]

Λύση με UDF
Σε μια περιοχή, με κενά συγχωνευμένα, εισάγουμε την συνάρτηση (*βλέπε εικόνα 1)

Η συνάρτηση σε μια module.

Function JoinEX(ByVal rng As Range, DelimeterX As String) As String
    Dim tmpString As String, c As Range
    For Each c In rng
        If Not IsEmpty(c) Then
            tmpString = tmpString & c.Value & DelimeterX & vbCrLf
        End If
    Next
    If Right(tmpString, 3) = DelimeterX & vbCrLf Then _
       tmpString = Left(tmpString, Len(tmpString) - Len(DelimeterX & vbCrLf))
    JoinEX = tmpString
End Function

Ενεργοποίηση-απενεργοποίηση UDF (*βλέπε εικόνα 2)