none
Macro Excel RRS feed

  • Pergunta

  • 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.

    sexta-feira, 15 de maio de 2020 15:01

Todas as Respostas

  • 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

    segunda-feira, 18 de maio de 2020 12:36