Valores de colagem VBA do Excel
Copiar e colar não é o melhor trabalho do mundo !!! Mas copiar e colar com opção especial requer algum tipo de conhecimento em VBA. Este não é o processo direto como o simples copiar e colar. Um dos métodos especiais de colar importantes é “Colar Valores” no VBA.
Como colar valores no Excel usando o VBA?
Você pode baixar este modelo Excel de valor de colagem VBA aqui - Modelo Excel de valor de colagem VBAExemplo # 1 - Usando Colar Especial
Para obter um exemplo, veja a imagem da planilha abaixo.
Na célula B6, aplicamos a fórmula para calcular os valores de vendas totais das células B2 a B5. Agora, se eu copiar e colar a célula B6 em C6, não obterei o valor de 22.761, mas obterei a fórmula correspondente.
Para realizar a mesma coisa no VBA, precisamos de conhecimento de codificação. Mostraremos como colar valores usando VBA. Siga as etapas abaixo.
Etapa 1: copie a célula B6.
Para copiar a célula B6 use o código como Range (“B6”).
Etapa 2: Selecione a célula de destino. Neste caso, célula C6.
Como você pode ver após a cópia, ele pergunta “Destino”. Isso não é nada além de onde você deseja colar, então selecione “Destino” como Faixa (“C6”)
Código:
Sub Paste_Values () Intervalo ("B6"). Copiar Intervalo ("C6") End Sub Etapa 3: execute o código
Execute este código e obteremos a cópia B6 em C6.
Temos apenas a fórmula aqui.
Etapa 4: Execute um método especial de colagem.
Para executar o método especial de colagem, vamos examinar a sintaxe abaixo do método especial de colagem.
No método especial de colar, temos vários métodos. Com base na operação que estamos fazendo, precisamos selecionar o tipo de acordo.
Para entender, vamos dividir o código em duas linhas.
O primeiro é copiar a célula B6.
Agora, na próxima linha, escreva a célula de destino como Faixa (“C6”)
Agora para acessar o Método Especial Colar coloque um ponto e comece a digitar a letra “P”.
Na variedade de opções acima, selecione o método “Colar especial”.
Depois de selecionar o método, pressione a tecla de espaço para ver os vários métodos especiais de colagem.
Nesta variedade de opções, selecione “xlPasteValues”.
Depois de selecionar a opção, pressione a tecla tab para selecionar automaticamente.
Código:
Sub Paste_Values () Intervalo ("B6"). Copiar intervalo ("C6"). PasteSpecial xlPasteValues End Sub 
Etapa 5: execute o código
Agora execute o código, devemos obter apenas o valor da célula B6 para a célula C6.
Se você observar a planilha depois de executar o código, ela ainda estará apenas no modo de cópia.
Isso desativará o modo de cópia recortada após a execução do método especial de colagem.
Exemplo # 2 - Colar especial com loops
Colar especial é fácil, mas em termos de usá-lo como parte de um código grande, é necessário um nível avançado de habilidades de codificação.
Para um exemplo, veja a imagem abaixo.
Na imagem acima da planilha na coluna “F”, temos a coluna total, ou seja, nas células F2, F5, F8, F11 e F14.
Agora meu requisito é copiar cada célula total da respectiva célula e colar na coluna “H” com as respectivas células.
Usando o código abaixo, com loops VBA, podemos fazer isso.
Código:
Sub Paste_Values1 () Dim k As Integer Dim j As Integer j = 2 For k = 1 To 5 Cells (j, 6) .Copy Cells (j, 8) .PasteSpecial xlPasteValues j = j + 3 Next k End Sub
Este código com opção especial de colar irá realizar a tarefa de copiar cada célula total e colar na coluna “H” com as respectivas células.
Exemplo # 3 - Copiar da planilha para outra
Para colar valores de uma planilha em outra, precisamos mencionar os nomes de ambas as planilhas. Abaixo está um exemplo disso.
Sub Paste_Values2 () Worksheets ("Sheet1"). Range ("A1"). Copy Worksheets ("Sheet2"). Range ("A15"). PasteSpecial xlPasteValues End Sub
