Comment utiliser des boucles dans Excel pour résoudre le problème du copier-coller

J'essaie de copier une ligne complète (ainsi, colonne Bpar colonne AI) de la feuille 1 dans la feuille 2, mais dans la feuille 2, la ligne sera toujours collée trois lignes plus bas, là où j'ai collé la ligne précédente.

Ainsi, par exemple, je copie la ligne 1 de la feuille 1 Coller dans la ligne 3 de la feuille 2

Puis copie de la ligne 2 (feuille 1) et copie dans la ligne 6 (feuille 3)

Puis copie de la ligne 3 (feuille 1) et copie dans la ligne 9 (feuille 2)

etc ..

Est-ce que quelqu'un peut m'aider à écrire la boucle d'élection dans VBA?

C'est le code que j'ai maintenant:

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
la source

Vérifiez ce lien ,, superuser.com/questions/1331120/… vous trouvez beaucoup de codes utiles.

Rajesh S le

Mieux partager le code avec nous que vous utilisez pour copier nous aidera à résoudre le problème. ☺

Rajesh S

Sub Copy_Over_Rows () Dim x As Long, y As Long Application.ScreenUpdating = False ThisWorkbook.Activate Pour x = 6 à 113 feuilles ("Feuille1"). Sélectionnez la plage ("B" & x & ": AI" & x). Copier les feuilles ("Disponibilité de l'hébergement"). Sélectionner une plage ("B" & x + y & ": AI" & x + y) .Sélectionner ActiveSheet.Paste y = y + 1 Suivant x End Sub

Sean McGarvey

ne postez pas le code en tant que commentaire, éditez mieux la question et collez-y le code uniquement!

Rajesh S

Que fait votre code maintenant? Que fait-il si vous initialisez  y? Que fait-il si vous ScreenUpdatingrevenez à Trueavant le End Sub? (2) Vous semblez comprendre comment écrire une boucle et vous semblez avoir 94% des moyens de résoudre votre problème. Pour quoi exactement avez-vous besoin d'aide?

Scott