Verwendung von Schleifen in Excel zum Lösen von Problemen beim Kopieren und Einfügen

Ich versuche, eine vollständige Zeile (also Spalte für BSpalte AI) von Blatt 1 in Blatt 2 zu kopieren , aber in Blatt 2 wird die Zeile immer drei Zeilen darunter eingefügt, wo ich die vorherige Zeile eingefügt habe.

So kopiere ich beispielsweise Zeile 1 von Blatt 1 und füge sie in Zeile 3 von Blatt 2 ein

Anschließend aus Zeile 2 (Blatt 1) kopieren und in Zeile 6 (Blatt 3) kopieren

Anschließend aus Zeile 3 (Blatt 1) kopieren und in Zeile 9 (Blatt 2) kopieren

und so weiter ..

Kann mir jemand beim Schreiben der Schreibschleife in VBA helfen ???

Dies ist der Code, den ich jetzt habe:

Sub Copy_Over_Rows()

    Dim x As Long, y As Long

    Application.ScreenUpdating = False
    ThisWorkbook.Activate
    For x = 6 To 113
        Sheets("Sheet1").Select
        Range("B" & x & ":AI" & x).Copy
        Sheets("Accomodation Availability").Select
        Range("B" & x + y & ":AI" & x + y).Select
        ActiveSheet.Paste
        y = y + 1
    Next x
End Sub

microsoft-excel Sean McGarvey
quelle

Überprüfen Sie diesen Link ,, superuser.com/questions/1331120/… Sie finden viele nützliche Codes.

Rajesh S

Geben Sie den Code, den Sie zum Kopieren verwenden, an uns weiter, um das Problem zu beheben. ☺

Rajesh S

Sub Copy_Over_Rows () Dim x So lange, y So lange Application.ScreenUpdating = False ThisWorkbook.Activate For x = 6 bis 113 Blatt ("Sheet1"). Wählen Sie Range ("B" & x & ": AI" & x). Blätter kopieren ("Verfügbarkeit von Unterkünften"). Bereich auswählen ("B" & x + y & ": AI" & x + y). ActiveSheet auswählen. Paste y = y + 1 Nächstes x Ende Sub

Sean McGarvey

poste den Code nicht als Kommentar, sondern bearbeite die Frage und füge den Code nur dort ein!

Rajesh S

Was macht Ihr Code jetzt? Was macht es, wenn Sie initialisieren  y? Was macht es , wenn Sie setzen ScreenUpdatingwieder auf , Truebevor das End Sub? (2) Sie scheinen zu verstehen, wie man eine Schleife schreibt, und Sie scheinen 94% des Weges zur Lösung Ihres Problems zu sein. Womit genau brauchen Sie Hilfe?

Scott