Como copiar dados para a próxima linha vazia de outra planilha no Excel?
Supondo que você queira 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 como mostrado na captura de tela abaixo, o que você pode fazer facilmente? Este artigo apresentará um método VBA para você.
Copie os dados para a próxima linha vazia de outra planilha com código VBA
Copie os dados para a próxima linha vazia de outra planilha com código VBA
Você pode executar o código VBA a seguir para copiar dados em uma determinada planilha e colar na próxima linha vazia de outra planilha automaticamente.
1. Pressione outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie e cole o código VBA abaixo na janela Módulo.
Código VBA: copie os 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
Note: No código, a Planilha2 é a planilha de destino dos dados copiados. Você pode alterá-lo de acordo com sua necessidade.
3. aperte o F5 chave para executar o código, no pop-up Kutools for Excel caixa de diálogo, selecione o intervalo que deseja copiar para a próxima linha vazia da Planilha2 e clique no botão OK botão. Veja a imagem:
Em seguida, os dados copiados da Planilha1 são colados na próxima linha vazia da Planilha2 específica imediatamente conforme a imagem abaixo mostrada:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!