Γιώργο,
αυτό που ζητάς δεν υπάρχει. Θα πρέπει να φτιάξεις την δική σου συνάρτηση σε
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
Πες μας τι έκανες.