Vba: como colar valores apenas sem formatação

Você pode usar a seguinte sintaxe no VBA para copiar um intervalo específico de células e colar os valores apenas em um novo local sem formatação:

 Sub PasteNoFormatting()

Range(" A1:D9 ").Copy
Range(" A12 ").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub

Esta macro específica irá copiar as células no intervalo A1:D9 e colar os valores das células sem qualquer formatação no intervalo começando na célula A12 .

Nota : A linha Application.CutCopyMode = False especifica que o modo de corte e cópia deve ser desabilitado após a execução da macro.

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: colar valores apenas sem formatação usando VBA

Digamos que temos o seguinte conjunto de dados no Excel que contém informações sobre vários jogadores de basquete:

Digamos que queremos copiar e colar todos os valores do intervalo A1:D9 para um novo local sem formatação.

Podemos criar a seguinte macro para fazer isso:

 Sub PasteNoFormatting()

Range(" A1:D9 ").Copy
Range(" A12 ").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que os valores originais das células foram colados em um novo local sem qualquer formatação.

Nota : Você pode encontrar a documentação completa do método PasteSpecial do VBA aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como encontrar a última linha usada
VBA: Como contar o número de linhas no intervalo
VBA: Como contar o número de colunas usadas