none
macro inserir linhas alternadas RRS feed

  • Pergunta

  • Olá pessoal gostaria de um ajuda em uma macro que insere linhas alteradas. 

    Exemplo:

    Antes: Depois de rodar a macro:

        A A

    1  João 1

    2 Pedro 2 João

    3 Maria 3

    4 Paulo 4 Pedro

    5 Ricardo 5

    6 Maria

    7

    8 Paulo

    9

          10 Ricardo

    quarta-feira, 8 de fevereiro de 2012 16:02

Respostas

  • Experimente isto

    Sub Insert1Row()
        Dim i As Long, lr As Long
        lr = Cells(Rows.Count, "A").End(xlUp).Row
        For i = lr To 1 Step -1
            Cells(i, "A").EntireRow.Insert
        Next i
    End Sub

    Espero que ajude

    M.

    • Marcado como Resposta Libeck segunda-feira, 25 de junho de 2012 00:22
    segunda-feira, 11 de junho de 2012 18:57

Todas as Respostas

  • Desculpe, mas naqo entendi a pergunta.

    abraço


    Flavio

    segunda-feira, 11 de junho de 2012 17:58
  • Experimente isto

    Sub Insert1Row()
        Dim i As Long, lr As Long
        lr = Cells(Rows.Count, "A").End(xlUp).Row
        For i = lr To 1 Step -1
            Cells(i, "A").EntireRow.Insert
        Next i
    End Sub

    Espero que ajude

    M.

    • Marcado como Resposta Libeck segunda-feira, 25 de junho de 2012 00:22
    segunda-feira, 11 de junho de 2012 18:57