Excel - Μια μακροεντολή για τη μετακίνηση δεδομένων από γραμμές σε στήλες

Θέμα

Έχω δεδομένα σε μία στήλη και θα ήθελα να την μεταφέρω σε μια σειρά για κάθε τρεις σειρές με έναν διαχωριστή χώρου, για παράδειγμα. Η στήλη δεδομένων ποικίλει ανάλογα με την ποσότητα των δεδομένων κάθε φορά.

 ABCDEFGHIJ κλπ 

Σε

 ABCDEFGHIJ κλπ 

Λύση

Υποθέστε ότι τα δεδομένα βρίσκονται στο A2 κάτω με το A1 που έχει επικεφαλίδες στηλών.

Δοκιμάστε τη μακροεντολή

• Τα αποτελέσματα θα είναι στις στήλες Γ έως Ε

 (= "A2"), Εύρος ("a2") Τέλος ("Α2") Ακροδέκτης () xlDown)) Ρύθμιση c = Εύρος ("a2") Do While c "" 'MsgBox c.Περιοχή διευθύνσεων (c, c.Offset (m - 1, 0)) Αντιγραφή κυττάρων (Rows.Count, "c"). Τέλος (xlUp) .Φάκελος (1, 0) .PasteSpecial Transpose: = Αληθινό σύνολο c = c.Offset (m, 0) 

Χάρη στο Venkat1926 για αυτή την συμβουλή.