Excel - Ein Makro zum Verschieben von Daten von Zeilen in Spalten
Problem
Ich habe Daten in einer einzelnen Spalte und möchte sie beispielsweise für jeweils drei Zeilen mit einem Leerzeichen in eine Zeile umwandeln. Die Datenspalte variiert jedes Mal in der Datenmenge.
ABCDEFGHIJ etc
In
ABCDEFGHIJ etc
Lösung
Angenommen, die Daten sind in A2 unten, wobei A1 Spaltenüberschriften hat.
Probieren Sie dieses Makro aus
- Die Ergebnisse befinden sich in den Spalten C bis E
Untertest () Abmessen als Bereich, m als Ganzzahl, c als Bereichsspalten ("c: E") Löschen m = 3 Einstellen von rng = Bereich (Bereich ("a2"), Bereich ("a2") Ende ( xlDown)) Setze c = Range ("a2") Do While c "" 'MsgBox c.Address Range (c, cOffset (m - 1, 0)). Kopiere Cells (Rows.Count, "c"). End (xlUp) .Offset (1, 0) .PasteSpecial Transpose: = True Setze c = c.Offset (m, 0) Loop End Sub
Danke an Venkat1926 für diesen Tipp.