none
Copiar dados das colunas A e B para a coluna C RRS feed

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

    quinta-feira, 19 de fevereiro de 2015 16:53

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
    sexta-feira, 20 de fevereiro de 2015 00:03

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
    sexta-feira, 20 de fevereiro de 2015 00:03
  • Muito obrigada!!!!! :D
    sexta-feira, 20 de fevereiro de 2015 11:46
  • Muito obrigada!
    sexta-feira, 20 de fevereiro de 2015 11:47