Forum - Μορφοποίηση Τιμές από στήλη σε ένα κελί

Καλησπέρα Δημήτρη,

1ος τρόπος: Χρήση κώδικα VBA
1. Κάνε δεξί κλικ πάνω στο όνομα του φύλλου και επέλεξε View Code
2. Στον επεξεργαστή της VBA επέλεξε Insert > Module.
3. Εκεί κάνε επικόλληση τον παρακάτω κώδικα:

Κώδικας:

Option Explicit
 

Function JOINRNG(Rng As Range, S As String) As String

    Dim MyCell As Range, Str As String

    For Each MyCell In Rng

        If Len(Trim(MyCell)) Then Str = Str & MyCell & S

    Next

    JOINRNG = Left(Str, Len(Str) - Len(S))

End Function

Δημιουργήθηκε η συνάρτηση JOINRNG(), όπου δέχεται δύο ορίσματα:
Rng: Το εύρος που περιέχει τις τιμές που πρόκειται να ενωθούν στο κελί.
S: Η συμβολοσειρά που θα διαχωρίζει τις τιμές μεταξύ τους, π.χ. "&"
Απλά γράψε σ' ένα κελί: =JOINRNG(O7:O36;"&")

2ος τρόπος: Με αντικατάσταση
1. Σ' ένα κελί γράψε =, μάρκαρε την περιοχή των τιμών και στο τέλος πρόσθεσε: &"&". Λογικά πρέπει να βλέπεις: =O7:O36&"&"
2. Αντί για Enter πάτα F9. Λογικά πρέπει να βλέπεις:
={"5&";"8&";"9&";"7&";"&";"5&";"&";"12&";"&";"25&" ;"39&";"&";"&";"11&";"8&";"&";"&";"27&";"&";"12&"; "&";"13&";"&";"14&";"&";"22&";"39&";"&";"41&"; "&"}
3. Σβήσε το = και τις αγκύλες {} στην αρχή και στο τέλος της ακολουθίας και πάτα Enter.
4. Μάρκαρε το κελί μαζί με τουλάχιστον ένα ακόμα κελί και πάτα Ctrl+H.
5. Αντικατέστησε το ";" (μαζί με τα αυτάκια) με το τίποτα. Μετά την αντικατάσταση πρέπει να βλέπεις:
"5&8&9&7&&5&&12&&25&39&&&11&8&&&27&&12&&13&&14&&22 &39&&41&&"
6. Αντικατέστησε το && με το &. Πάτα Replace All μέχρι να σου εμφανίσει μήνυμα ότι δεν βρέθηκε άλλο.
7. Τέλος, σβήσε τα " στην αρχή και στο τέλος μαζί με το & στο τέλος.