Como copiar dados para a próxima linha vazia de outra planilha no Excel?

Suponha que você deseja copiar certos dados no intervalo A1:E1 da Planilha1 e colá-los rapidamente na próxima linha vazia da Planilha2 em uma pasta de trabalho, conforme mostrado na captura de tela abaixo. O que você pode fazer para alcançar isso facilmente? Este artigo apresentará um método usando VBA para você.

Copiar dados para a próxima linha vazia de outra planilha com código VBA

Copiar dados para a próxima linha vazia de outra planilha com código VBA

Você pode executar o código VBA abaixo para copiar dados em uma determinada planilha e colá-los automaticamente na próxima linha vazia de outra planilha.

1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA abaixo na janela Módulo.

Código VBA: copiar dados para a próxima linha vazia de outra planilha

Private Sub CommandButton1_Click()
    Dim xScreenUpdating As Boolean
    Dim xPasteSht As Worksheet
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xPasteSht = Worksheets("Sheet2")
    xScreenUpdating = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xRg.Copy
    xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Application.ScreenUpdating = xScreenUpdating
End Sub

Observação: No código, Planilha2 é a planilha de destino dos dados copiados. Você pode alterá-la conforme sua necessidade.

3. Pressione a tecla F5 para executar o código; na caixa de diálogo Kutools para Excel que aparece, selecione o intervalo que deseja copiar para a próxima linha vazia da Planilha2 e, em seguida, clique no botão OK. Veja a captura de tela:

Os dados copiados da Planilha1 são imediatamente colados na próxima linha vazia da Planilha2, conforme mostrado na captura de tela abaixo.