Forum - Συναρτήσεις Συγχώνευση κελιών σε ένα κελί

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [Συναρτήσεις] Συγχώνευση κελιών σε ένα κελί (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/4385-sygxoneysi-kelion-se-ena-keli.html)

Συγχώνευση κελιών σε ένα κελί

Καλημέρα σας.
Εχω κάποια στοιχεία σε μια στήλη και θέλω να τα συγχωνευσω σε ένα κελί χωρίς να χαθεί το περιεχόμενο τους αλλά να εμφανίζεται με κενό ανάμεσα.

Λύση με 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)