Macro Excel

Question

Olá pessoal! Tudo bem?

Preciso fazer uma macro na qual copie uma célula, cole na próxima coluna, mesma linha.

Após isso, volte pra coluna 1, pule 4 linhas e repita o processo acima.

Exemplo:

Copie Célula A1, cole na B1.

Vá para a A5, copie A5 e cole na B5.

Vá para a A9, popie A9 e cole na B9.

Assim sucessivamente enquanto haver dados para serem copiados.

Tenho feito "a mão" e usando filtros, mas são muitos dados. Meus conhecimentos estão limitados a fazer macros com intervalos fechados, não conheço como automatizar e nem encontrei material sobre.

Desde já agradeço.

Answer 1

Tem várias formas de fazer, dependendo do tamanho e características do seus dados. Uma das mais simples seria:

Sub Copiar()

Dim L As Long, Li As Long, Ci As Long, Cf As Long, nLinhas As Long

Li = 1
Ci = 1
Cf = 2

nLinhas = 4

L = Li

Application.ScreenUpdating = False
With ActiveSheet
    Do
        .Cells(L, Cf).Value = .Cells(L, Ci).Value
        L = L + nLinhas
    
    Loop While .Cells(L, Ci) <> vbNullString
End With

Application.ScreenUpdating = True

End Sub

Atende?

---

Filipe Magno