VBA Excel - Exemplos de Copiar e Colar - 03


Copie a última linha utilizada na coluna A Sheet1. E em seguida, cole na primeira linha vazia após a última entrada da coluna "A" Plan2.



Sub CopyRowPasteToNextSheet()


Worksheets("Sheet1").Range("A65536").End(xlUp).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)

    
End Sub


Tags: Excel, VBA, copy, paste, 


Inline image 1

Nenhum comentário:

Postar um comentário

diHITT - Notícias