Colar VBA
Colar VBA funciona da mesma maneira que copia / recorta e cola no Excel. VBA Cole a versão automatizada do que fazemos regularmente no trabalho regular do Excel. Colar dados em qualquer local necessário é a tarefa de rotina. Para executar esta atividade, precisamos definir o local de onde escolheremos os dados e o local em que os colaremos.
Como usar a pasta VBA do Excel?
Vamos aprender como usar uma pasta VBA com alguns exemplos no Excel.
Você pode fazer o download deste modelo do VBA Paste Excel aqui - Modelo do VBA Paste ExcelColar VBA - Exemplo # 1
Vamos considerar qualquer célula do Excel que tenha algum texto. Aqui, mantivemos o texto " Colar VBA " na célula B3, como mostrado abaixo.
Siga as etapas abaixo para usar a pasta VBA.
Etapa 1: Agora vá para a janela VBA e abra um novo módulo no menu Inserir, como mostrado abaixo.
Etapa 2: Depois de fazer isso, obteremos um módulo em branco. Nesse começo, escreva Subcategoria. É recomendável escrever subcategoria no nome da função que estamos executando.
Código:
Sub VBAPaste1 () End Sub
Etapa 3: Agora, primeiro selecione a célula Range, na qual temos os dados que precisamos copiar. Aqui, a célula Range é B3, seguida pela função .Copy . Isso copia os dados na célula Range que nós selecionamos.
Código:
Sub VBAPaste1 () Intervalo ("B3"). Copiar End Sub
Etapa 4: Agora precisamos de uma célula de destino onde precisamos colar esse valor copiado. Com a ajuda do comando Destination, selecione a célula Range. Aqui nós selecionamos a célula D1, onde veremos o valor.
Código:
Sub VBAPaste1 () Intervalo ("B3"). Destino da cópia: = Intervalo ("D1") End Sub
Etapa 5: uma vez concluído, compile o código e execute-o.
Veremos que o conteúdo da célula B3 agora é copiado e colado na célula D3, como mostrado acima.
Colar VBA - Exemplo # 2
Vamos considerar outro exemplo de colar VBA. Para isso, vá para a janela VBA, abra um módulo e siga as etapas abaixo.
Etapa 1: comece a escrever a subcategoria no nome da pasta VBA ou em qualquer outro nome, como mostrado abaixo.
Código:
Sub VBAPaste2 () End Sub
Etapa 2: Aqui consideraremos os mesmos dados ou célula de referência B3 que vimos no exemplo-1. Selecione a célula Range B3 seguida pelo comando .Copy . Isso copiará os dados.
Código:
Sub VBAPaste2 () Intervalo ("B3"). Copiar End Sub
Etapa 3: agora selecione a célula do intervalo em que precisamos colar os dados copiados. Aqui, estamos selecionando as células D1 a D3, ao contrário de selecionar apenas uma célula, como mostrado no exemplo-1.
Código:
Sub VBAPaste2 () Intervalo ("B3"). Intervalo de cópia ("D1: D3"). Selecione End Sub
Etapa 4: depois de copiarmos os dados e selecionarmos as células onde eles precisam ser colados. Agora selecione Colar comando com a ajuda da função ActiveSheet . Esta folha de atividades permite que a célula copiada cole nas células do intervalo.
Código:
Sub VBAPaste2 () Intervalo ("B3"). Intervalo de cópia ("D1: D3"). Selecione ActiveSheet.Paste End Sub
Etapa 5: Agora compile o código e execute-o. Veremos que o valor da célula B3 será colado das células D1 a D3.
Colar VBA - Exemplo # 3
Outro método de colar VBA é usar o processo manual que fazemos para copiar e colar.
Siga os passos abaixo:
Etapa 1: Escreva a subcategoria de colar VBA, como mostrado abaixo.
Código:
Sub VBAPaste3 () End Sub
Etapa 2: É melhor atribuir a sequência à Subcategoria se você estiver escrevendo vários conjuntos de códigos em um único arquivo. Para colar qualquer coisa, primeiro, precisamos copiar esses dados. Aqui nós selecionamos o comando Copiar .
Código:
Sub VBAPaste3 () Selection.Copy End Sub
Etapa 3: agora selecione o intervalo ou a célula de referência que precisamos copiar e colar. Aqui temos o Cell D3 com os dados "VBA Paste".
Código:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Selecione End Sub
Etapa 4: agora no Excel, selecionamos as células nas quais precisamos colar os dados manualmente ou com as teclas Shift + Ctrl + Up / Down. Aqui também vamos selecionar a localização das células pelo comando End (xlUp) para selecionar o intervalo de células de saída.
Código:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Selecione Range (Selection, Selection.End (xlUp)). Selecione End Sub
Etapa 5: Agora selecione o intervalo de células de saída, aqui selecionamos as células D1 a D3, onde veremos os dados colados.
Código:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Selecione Range (Seleção, Selection.End (xlUp)). Selecione Range ("D1: D3"). Selecione End Sub
Etapa 6: como a função, precisamos executar é a função colar, por isso precisamos ativar o comando colar no VBA pelo comando ActiveSheet seguido de ponto (.) Colar.
Código:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Selecione Range (Selection, Selection.End (xlUp)). Selecione Range ("D1: D3"). Selecione ActiveSheet.Paste End Sub
Etapa 7: Agora, finalmente, permita o aplicativo CutCopyMode como FALSE, o que significa que você está apenas copiando os dados em vez de cortá-los também da célula de referência.
Código:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Selecione Range (Selection, Selection.End (xlUp)). Selecione Range ("D1: D3"). Selecione ActiveSheet.Paste Application.CutCopyMode = False End Sub
Etapa 8: antes de executar o código, coloque o cursor na célula B3 primeiro. Em seguida, compile o código e execute-o. Veremos que nossos dados serão copiados para as células D1 a D3.
Colar VBA - Exemplo # 4
Há outra maneira de usar o VBA Paste em uma única linha de código.
Siga os passos abaixo:
Etapa 1: Escreva a subcategoria na sequência e no nome de uma função executada.
Código:
Sub VBAPaste4 () End Sub
Etapa 2: use o comando Planilhas e selecione a Planilha em que trabalharemos. Aqui, o nome da nossa planilha é "Plan1". Também podemos usar o Workbook.Sheet (1) para selecionar "Sheet1" em vez disso.
Código:
Sub VBAPaste4 () Planilhas ("Plan1"). End Sub
Etapa 3: selecione a célula de onde copiaremos os dados. Aqui, a célula Range é B3, com os mesmos dados que vimos nos exemplos acima.
Código:
Sub VBAPaste4 () Planilhas ("Plan1"). Intervalo ("B3"). End Sub
Etapa 4: Agora insira o comando Copiar após um ponto (.) Para copiar os dados da célula Intervalo selecionada.
Código:
Sub VBAPaste4 () Planilhas ("Plan1"). Intervalo ("B3"). Copiar End Sub
Etapa 5: Agora use o comando Destino para selecionar o local em que colaremos os dados copiados. Para isso, selecione Planilha como "Plan1", que fizemos no início deste exemplo e selecione as células Intervalo em qualquer lugar da mesma planilha. Aqui, selecionamos as células de saída Range de D1 a D3.
Código:
Sub VBAPaste4 () Planilhas ("Plan1"). Intervalo ("B3"). Destino da cópia: = Planilhas ("Plan1"). Intervalo ("D1: D3") End Sub
Etapa 6: Agora compile e execute. O texto "Colar VBA" da célula B3 será copiado e colado nas células D1 a D3, conforme mostrado abaixo.
Profissionais da pasta VBA do Excel
- A aplicação dos 2 primeiros exemplos é a maneira mais fácil e rápida de aplicar a Pasta VBA.
- Para dados enormes, onde é difícil realizar várias atividades, se automatizarmos esse tipo de função pequena, isso poupará muito tempo para fazer coisas manuais.
- Não há limite de copiar e colar os dados.
Coisas para lembrar
- Use a subcategoria de forma que, se você estiver usando vários módulos, a inserção da sequência facilitará o rastreamento e a escolha da macro correta.
- Salve o arquivo excel no formato de ativação de macro para que o código escrito seja preservado para a próxima vez em que for usado.
- Se você estiver escrevendo várias linhas de código, é recomendável compilar o código linha por linha para descobrir se há algum erro.
- É recomendável colocar o cursor na célula B3 se você estiver usando o exemplo-3.
Artigos recomendados
Este foi um guia para colar VBA. Aqui discutimos a Pasta VBA e como usar a Pasta VBA do Excel, juntamente com exemplos práticos e modelo de excel para download. Você também pode consultar nossos outros artigos sugeridos -
- Partida VBA | Como usar?
- Fórmula TRANSPOSE do Excel
- Gama VBA | Macros fáceis do Excel
- Fórmula IF aninhada no Excel