Como criar um Botão de Comando para copiar e colar dados no Excel?
Supondo que você precise copiar frequentemente um intervalo de células para outro local após alterar os dados, o método de copiar e colar manualmente será complicado e demorado. Como fazer com que esse caso de copiar e colar seja executado automaticamente? Este artigo mostrará como usar um botão de comando para copiar e colar dados com apenas um clique.
Crie um botão de comando para copiar e colar dados com o código VBA
Crie um botão de comando para copiar e colar dados com o código VBA
Faça o seguinte para copiar e colar dados automaticamente ao clicar em um botão de comando.
1. Insira um botão de comando clicando Developer > inserção > Botão de comando (controle ActiveX). Veja a imagem:
2. Desenhe um botão de comando em sua planilha e clique com o botão direito nele. Selecione Ver código no menu de contexto.
3. No popping up Microsoft Visual Basic para Aplicações janela, substitua o código original na janela de código com o código VBA abaixo.
Código VBA: use o botão de comando para copiar e colar dados no Excel
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim xSheet As Worksheet
Set xSheet = ActiveSheet
If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
xSheet.Range("A1:C17 ").Copy
xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = True
End Sub
Note: No código, CommandButton1 é o nome do botão de comando inserido. A1: C17 é o intervalo que você precisa copiar e J1: L17 é o intervalo de destino para colar os dados. Altere-os conforme necessário.
4. Pressione outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela. E desative o Modo Design na guia Desenvolvedor.
5. Agora clique no botão de comando, todos os dados no intervalo A1: C17 serão copiados e colados no intervalo J1: L17 sem a formatação da célula.
Artigos relacionados:
- Como salvar e fechar a pasta de trabalho ativa sem solicitação de um botão de comando no Excel?
- Como sempre flutuar um Botão de Comando na planilha do Excel?
- Como atualizar ou inserir data e hora (atuais) por um Botão de Comando no Excel?
- Como usar um botão de comando para alterar um valor de célula especificado no Excel?
- Como usar o botão de comando para salvar a planilha ativa como um arquivo PDF no Excel?
- Como inserir uma nova linha em branco automaticamente pelo botão de comando no Excel?
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!