déplacer la gamme de la ligne vers le bas en vba

Je suis en train de sélectionner les 7 premières lignes de ma feuille de calcul (le nombre exact peut varier) et le déplacer 32 lignes (nombre de lignes à déplacer vers le bas pourrait aussi varier). Quelqu'un pourrait-il m'aider avec le code? J'ai essayé:

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

J'ai aussi essayé

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

Ne fonctionne pas, soit. Merci d'avance pour l'aide!

OriginalL'auteur Trung Tran | 2012-11-21

  1. 10

    Ce fait ce que vous demandez, et si il y a toutes les lignes après 32 déplace vers le bas:

    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: Voici une version qui vient de couper et coller, pas de fantaisie, de l'insertion:

    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
    il ajoute un tas de lignes, mais ne copie pas. Si vous laissez me montrer comment faire pour copier et coller une ligne, je pourrais être capable de le modifier pour mes besoins. Merci.
    Après la rétrogradation vous pouvez ws.Range("A" & TargetRow + NumRows).PasteSpecial ...je pense.
    Dans ce cas, le décalage vers le bas également des copies les lignes, tout comme Insert Cut Cells dans l'interface d'Excel. Je suppose que vous sont en cours d'exécution, c'est exactement comme ci-dessus. En tout cas, je vais modifier tout simplement faire un couper-coller. Pour info, si vous ne savez pas à propos de l'Enregistreur de Macro, c'est une excellente façon d'obtenir de démarreur de code pour ce genre de choses.

    OriginalL'auteur Doug Glancy

  2. 2

    essayer cette 

    Sub marine()

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

End Sub

    remplacer activesheet avec votre nom de la feuille. activesheets ne sont pas les meilleurs

    Cela fonctionne très bien, sauf si il y a des formules qui doivent être copiés. Il aussi de ne pas copier des formats, des commentaires ou de la validation, juste les valeurs.
    J'aime votre nom de la macro!

    OriginalL'auteur Sico

  3. 1

    Viens de trouver ceci:

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

    Doux!

    Je voudrais aussi essayer:

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

    OriginalL'auteur Gerard ONeill