Excel Macro para copiar e colar de forma sequencial

[Matheus Orchulhak]

Preciso atribuir o mesmo elemento na coluna ao lado de maneira sequencial, mas estou com dificuldades
A macro seria basicamente essa diagramação:

Copiar e colar sucessivamente.

 

Abraços

[Midori]

@Matheus Orchulhak Use um loop e se quiser copiar mais colunas é só editar o range,

Sub CopiaCola()
    Dim C As Integer
    
    For C = [B2].Column To [I2].Column Step 2
        Call Cells(2, C).Copy(Cells(2, C + 1))
    Next C
End Sub

 

[Matheus Orchulhak]

3 horas atrás, Midori disse:

@Matheus Orchulhak Use um loop e se quiser copiar mais colunas é só editar o range,

Sub CopiaCola()
    Dim C As Integer
    
    For C = [B2].Column To [I2].Column Step 2
        Call Cells(2, C).Copy(Cells(2, C + 1))
    Next C
End Sub

 

@Midori, muito obrigado!

Estou começando no VBA... você teria alg material de recomendação para essas aplicações? (automatização de tarefas simples e repetitivas)

[Midori]

@Matheus Orchulhak Achei o Desenvolvendo Macros no Excel (Writing Excel Macros with VBA) da O'Reilly um bom livro. Por ser uma publicação mais antiga não tem alguns recursos das versões mais recentes do Excel/VBA, mas dá uma boa base do ambiente.