Macro para Copiar/Colar valores <> de " "

[Dario Cesar]

Amigos

 

Boa noite.

 

Estou precisando de uma orientação de vocês. 

Tenho duas colunas, C  e  G com 3.000 linhas cada.

Alguem tem alguma MACRO que eu possa adaptar para copiar os valores da coluna “G” para a coluna “C” seguindo o mesmo numero de linha?

Ex:

 

	Coluna C	Coluna G
Linha 1	010	010
Linha 2	018	018
Linha 3	022	022
Linha 4
Linha 5
Linha 6	035	035
Linha 7	042	042
Linha 8	038	038
Linha 9
Linha 10
Linha 11
Linha 12	072	072
Linha 13	043	043
Linha 14	021	021
Linha 15
Linha 16
Linha 17
Linha 18
Linha 19	011	011
Linha 20	015	015
Linha 21	001	001
Linha 22

 

[CasaDoHardware]

Juro que nao entedi...

 

 

Selecionar a coluna G e colar na C nao resolve.?

[Dario Cesar]

Em 08/02/2016 às 18:55, CasaDoHardware disse:

Juro que nao entedi...

 

 

Selecionar a coluna G e colar na C nao resolve.?

Resolve sim.  

[CasaDoHardware]

então é selecionar a coluna G crtl + C Selecionar a C e Ctrl + V

 

Nao tem coisa mais simples

 

[Patropi]

Bom dia Dario

 

Se é só copiar colar você poderia ter gravado uma macro.

 

Veja um código bem simples:

Sub Copiar_colar()

    Columns("C:C").Copy
    Columns("G:G").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("C1").Select
    
End Sub

Se foi útil, clique em Curtir.

 

Dê retorno.

 

[]s