Copiar dados das colunas A e B para a coluna C

Question

Olá.

Estou com uma dúvida simples, mas que não estou conseguindo resolver...

Tenho uma planilha Excel com dados nas colunas A e B, e quero copiar esses dados na coluna C, intercalando eles.

Exemplo:

Coluna A     Coluna B      Coluna C

A1               B1               A1

A2               B2               B1

                                      A2

                                      B2

E assim por diante.

Alguém poderia me dar uma luz de como faço isso com VBA?

Obrigada!

Answer 1

Boa noite.

Poderia usar algo do tipo:

LinI = 2

LinFA = Cells(Rows.Count, "A").End(xlUp).Row
LinFB = Cells(Rows.Count, "B").End(xlUp).Row



For i = 1 To IIf(LinFA > LinFB, LinFA, LinFB) - LinI + 1

    ii = 2 * i - 1 + (LinI - 1)
    
    Cells(ii, "C").Value2 = Cells(LinI + i - 1, "A").Value2
    Cells(ii + 1, "C").Value2 = Cells(LinI + i - 1, "B").Value2


Next i

Te atende?

---

Filipe Magno

Answer 2

Muito obrigada!!!!! :D

Answer 3

Muito obrigada!