[Excel07] Ένωση αλφαριθμητικών στο Excel

[George R]

Γειά σε όλους.

Έχω κάποιες στήλες στο Excel Α1:Ο300, των οποίων τα κελιά περιέχουν κάποια αλφαριθμητικά ή είναι κενά.
Πως μπορώ στο τέλος κάθε γραμμής αυτού του πίνακα, δηλαδή στη στήλη P1:P300 να μου ενώνει όλα τα αλφαριθμητικά της κάθε σειράς; Δηλαδή στο P1 να μου ενώνει τα αλφαριθμητικά από A1 έως O1, στο P2 να ενώνει από A2 έως O2 ..... στο P300 τα A300 έως O300.

Χρησιμοποιώ Excel 2010
Ευχαριστώ.

[ΧρύσαΚ]

Καλημέρα
Μπορείς να χρησιμοποιήσεις τη συνάρτηση concatenate. Σε κάθε όρισμα της δίνεις και από ένα κελί που θέλεις να συννενώσεις. Την κάνεις στο P1 κι έπειτα την αντιγράφεις μέχρι κάτω. Εάν δεν θέλεις να βγουν "κολλητά" δίνεις και σαν όρισμα το space ανάμεσα στα ορίσματα

[George R]

Ευχαριστώ Χρύσα,

αλλά ψάχνω έναν τρόπο να μην δίνω τα κελιά ένα - ένα, αλλά να τα διαβάζει αυτόματα όλα.

[gr8styl]

Γιώργο,
αυτό που ζητάς δεν υπάρχει. Θα πρέπει να φτιάξεις την δική σου συνάρτηση σε VBA.
Για παράδειγμα ο παρακάτω κώδικας ορίζει την συνάρτηση MyConcatenate

Function MyConcatenate(MyRng, Sep) As String
Dim c As Range
MyConcatenate=""
For Each c in MyRng
MyConcatenate = MyConcatenate & c & Sep
Next c
MyConcatenate = Left(MyConcatenate, Len(MyConcatenate) - Len(Sep))
End Function

Έχοντας ορίσει τη παραπάνω συνάρτηση βάζεις στο p1 =MyConcatenate(a1:o1;", ")

Εναλλακτικά χωρίς VBA
1) Βάζεις στο aa1 =z1&a1&", "
2) Σέρνεις το aa1 προς τα δεξιά μέχρι το αο1
3) Βάζεις στο p1 =LEFT(ao1;LEN(ao1)-2)
4) Σέρνεις προς τα κάτω την περιοχή p1:ao1
5) Κρύβεις τις στήλες Q έως AO

Πες μας τι έκανες.

[George R]

Ευχαριστώ Θανάση.

Έψαξα λίγο και βρήκα μια ενδιαφέρουσα και έξυπνη λύση στην παρακάτω σελίδα.

Quickly combine text in multiple cells using this trick! [Formulas] | Chandoo.org - Learn Microsoft Excel Online

Έχει βέβαια κάποια προβληματάκια.

Ευχαριστώ.