bewegen Sie Reihe von Zeilen nach unten in vba

Ich versuche zu wählen, die ersten 7 Zeilen meiner Tabelle (die genaue Anzahl kann variieren) und verschieben es 32 Zeilen (Anzahl der Zeilen nach unten zu bewegen, könnte auch variieren). Könnte mir jemand helfen mit dem code? Ich habe versucht:

Worksheets("Report").Cells(x1, 5).EntireRow.Offset(32, 0).Select

Ich habe auch versucht

for i = 1 to 7
set x1 = worksheets("Report").Cells(i, 5)
Rows(x1).EntireRow.Offset(32, 0).Select

Wird nicht funktionieren. Vielen Dank im Voraus für die Hilfe!

InformationsquelleAutor Trung Tran | 2012-11-21

  1. 10

    Das tut, was Sie Fragen, und wenn es irgendwelche Zeilen nach 32 Verschiebungen, die Sie nach unten:

    Sub MoveRowsDown()
Dim NumRows As Long
Dim TargetRow As Long
Dim ws As Excel.Worksheet

NumRows = 7 'change as necessary
TargetRow = 33 'change as necessary
Set ws = ActiveSheet ' change as necessary

ws.Range("A1").Resize(NumRows).EntireRow.Cut
ws.Range("A" & TargetRow + NumRows).EntireRow.Insert shift:=xlDown
End Sub

    EDIT: Hier eine version, die nur Schnitte und Pasten, keine Lust, einfügen:

    Sub MoveRowsDown()
Dim NumRows As Long
Dim TargetRow As Long
Dim ws As Excel.Worksheet

NumRows = 7 'change as necessary
TargetRow = 33 'change as necessary
Set ws = ActiveSheet ' change as necessary

ws.Range("A1").Resize(NumRows).EntireRow.Cut Destination:=ws.Range("A" & TargetRow)
End Sub
    es fügt eine Reihe von Zeilen, aber nicht kopieren. Wenn Sie lassen mir zeigen, wie das kopieren und einfügen einer Zeile, ich könnte in der Lage sein, diese zu ändern, um meinen Bedürfnissen. Danke.
    Nach dem Herunterschalten können Sie ws.Range("A" & TargetRow + NumRows).PasteSpecial ...denke ich.
    In diesem Fall ist die Verschiebung nach unten kopiert auch die Zeilen, genau wie Insert Cut Cells im Excel-Schnittstelle. Ich nehme an, Sie sind läuft es genau wie oben. Jedenfalls werde ich Bearbeiten, um nur ein Ausschneiden und einfügen. FYI, wenn Sie nicht wissen, über den Makro-Recorder, es ist ein guter Weg, um einige starter code für Dinge wie diese.

    InformationsquelleAutor Doug Glancy

  2. 2

    versuchen, diese 

    Sub marine()

ActiveSheet.Rows("32:38").Value = ActiveSheet.Rows("1:7").Value
ActiveSheet.Rows("1:7").Clear

End Sub

    ersetzen activesheet mit dem Blatt-Namen. activesheets sind nicht die besten

    Dies funktioniert gut, es sei denn, es gibt Formeln, die kopiert werden müssen. Es wird auch nicht kopieren, Formate, Kommentare oder Bewertungen, die nur die Werte.
    Ich mag deine makro-Namen!

    InformationsquelleAutor Sico

  3. 1

    Gerade hier gefunden:

    range("A1:C6").Cut range("A10")

    Süß!

    Ich würde auch versuchen:

    rows("1:7").cut rows("32")

    InformationsquelleAutor Gerard ONeill

Schreibe einen Kommentar