Usuário com melhor resposta
Copiar dados das colunas A e B para a coluna C

Pergunta
-
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!
Respostas
-
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
- Marcado como Resposta mrmooser sexta-feira, 20 de fevereiro de 2015 11:46
Todas as Respostas
-
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
- Marcado como Resposta mrmooser sexta-feira, 20 de fevereiro de 2015 11:46
-
-