Como copiar dados para a próxima linha vazia de outra folha de cálculo no Excel?
Suponha que pretende copiar os dados do intervalo A1:E1 da Folha1 e colá-los rapidamente na próxima linha vazia da Folha2, num mesmo livro, tal como ilustrado na imagem abaixo. Como pode fazê-lo de forma fácil? Este artigo apresenta-lhe um método prático com VBA.
Copiar dados para a próxima linha vazia de outra folha de cálculo com código VBA
Copiar dados para a próxima linha vazia de outra folha de cálculo com código VBA
Pode executar o código VBA abaixo para copiar dados de uma folha específica e colá-los automaticamente na primeira linha vazia de outra folha de cálculo.
1. Prima 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 seguinte código VBA na janela do Módulo.
Código VBA: copiar dados para a próxima linha vazia de outra folha de cálculo
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 SubNota: No código, a Folha2 é a folha de destino dos dados copiados. Pode alterá-la conforme as suas necessidades.
3. Prima a tecla F5 para executar o código. Na caixa de diálogo Kutools para Excel que surge, selecione o intervalo que pretende copiar para a próxima linha vazia da Folha2 e, em seguida, clique no botão OK. Veja a imagem:
Os dados copiados da Folha1 são colados imediatamente na próxima linha vazia da Folha2, conforme ilustrado na imagem abaixo.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos