Ich habe Datenbereiche, die sich über mehrere Spalten erstrecken: (C:D)
, (M:N)
und (Q:R)
. Ich versuche, die erste Reihe in jeder Reihe zu kopieren und sie in ein anderes Blatt einzufügen. Wie in die Bereiche in einen einzigen Bereich kombiniert mit der folgenden SequenzKopieren von Spaltenbereichen in eine einzige Serie in VBA
Die Reihenfolge der Kopie und Einfügen ich zu tun versuche, ist
- Erste Reihe von Bereich
(C:D)
- Erste Reihe von Bereich
(M:N)
- Erste Reihe des Bereichs
(Q:R)
- Zweite Reihe von Bereich
(C:D)
- Zweite Reihe von Bereich
(M:N)
- Zweite Reihe von Bereich
(Q:R)
und dann die dritte Reihe und so weiter .. Ich versuche, die Bereiche in ein anderes Blatt einzufügen.
Bis jetzt habe ich dies getan, indem ich jede Reihe auf einmal kopiere und nacheinander anlege. Aber ich finde es schwierig, dies in eine Schleife umzuwandeln, die eine beliebige Anzahl von Zeilen kopiert und in ein anderes Blatt einfügt.
Sub CopyCol()
Sheets("Sheet10").Range("C2:D2").Copy
Sheets("Sheet11").Range("B2:C2").PasteSpecial xlPasteValues
Sheets("Sheet10").Range("M2:N2").Copy
Sheets("Sheet11").Range("B3:C3").PasteSpecial xlPasteValues
Sheets("Sheet10").Range("Q2:R2").Copy
Sheets("Sheet11").Range("B4:C4").PasteSpecial xlPasteValues
Sheets("Sheet10").Range("C3:D3").Copy
Sheets("Sheet11").Range("B5:C5").PasteSpecial xlPasteValues
Sheets("Sheet10").Range("M3:N3").Copy
Sheets("Sheet11").Range("B6:C6").PasteSpecial xlPasteValues
Sheets("Sheet10").Range("Q3:R3").Copy
Sheets("Sheet11").Range("B7:C7").PasteSpecial xlPasteValues
...
End Sub
Das Kopieren und Einfügen stoppt nicht dort geht es weiter. Ich habe gerade einen Ausschnitt des Codes eingefügt. Die Anzahl der Zeilen in jeder Serie ist 45.
Gibt es eine Möglichkeit, die Anzahl der Zeilen zu reduzieren? Ich konnte nicht herausfinden, wie man es mit einer Schleife macht.
Jede Hilfe oder Vorschläge wäre wirklich hilfreich und sehr geschätzt.
Vielen Dank im Voraus.
Vielen Dank für die Antwort, lernte heute eine neue Sache und war wirklich hilfreich :) – Dazzler