[nisgia]

Γεια και χαρά σε όλους και όλες!

Αρχική Δημοσίευση από ShortCuter

Παιδιά εννοείται ότι εάν υπάρχει καλλίτερη, ταχύτερη, εξυπνότερη λύση την παραθέτουμε.

Μια ακόμη λύση θα ήταν η χρήση της λειτουργίας "Αντιγραφή-Ειδική επικόλληση"
με ενεργοποιημένο το "Αντιμετάθεση"(Transpose) ενώ με τον τρόπο της αυτοματοποίησης
και εφόσον δεν υπάρχουν κενές γραμμές στην "οριζόντια" περιοχή, θα μπορούσε να γίνει και έτσι:

Sub Transposition()
    With Range("A1").CurrentRegion
        .Copy
        .Offset(, .Columns.Count + 1).PasteSpecial , , , True
    End With
End Sub

Φίλε Αδάμ, χαίρομαι πολύ που ξαναβρεθήκαμε!

Τα λέμε,
Γιάννης