Início / computer / Perguntas / 1686416
Accepted
Smaran
Asked: 2021-11-09 18:15:30 +0800 CST

Precisa de um código de loop VBA do Excel para copiar e colar um intervalo

  • 772

Quero fazer um loop para copiar o intervalo A6 para B 2365 e colá-lo 18 vezes abaixo do intervalo anterior, ou seja, quero colá-lo logo abaixo do intervalo anterior, portanto, se o primeiro intervalo terminar na linha número 2365, quero o copiado intervalo a ser colado na linha número 2366.

Fiz uma gravação de macro e cheguei ao seguinte código, mas isso ocorre apenas 1 vez, quero um código que possa repetir essa tarefa 18 vezes.

Range("A6:B2365").Select
Selection.Copy
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=15
microsoft-excel vba

1 respostas

  1. Best Answer

    Use um loop para colar o intervalo copiado. Seu código será:

    Public Sub Test()

    Range("A6:B2365").Select
    Selection.Copy

    For x = 1 To 18
        Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Range("A1").Select
        ActiveSheet.Paste
        ActiveWindow.SmallScroll Down:=15
    Next x

End Sub
    • 0

relate perguntas