none
Dúvida VBA - Copiar linha e adicionar espaços RRS feed

  • Pergunta

  • Olá a todos

    Como posso copiar uma linha de uma planilha que está no mesmo arquivo excel e na sequencia adicionar 3 linhas em branco, e na sequencia copiar a linha que era a seguinte da planlha de origem e novamente as 3 linhas em branco e assim por diante....são +/- 10000 linhas no total....

    Desde já agradeço a ajuda de todos

    Edgar

    quinta-feira, 14 de junho de 2012 20:26

Respostas

  • Sub ConcatenarPlanilhas()
        
        Dim wb As Workbook
        Dim ws As Worksheet
        Dim wsTodos As Worksheet
        
        'Cria uma nova Pasta de Trabalho, que conterá a Planilha
        'com todas as Planilhas concatenadas.
        Set wb = Workbooks.Add
        Set wsTodos = wb.Sheets(1)
    
        For Each ws In ThisWorkbook.Sheets
            rngUsado(ws).Copy Destination:=wsTodos.Range("A" & _
            rngUsado(wsTodos).Rows.Count + 4)
        Next ws
        'É necessário apagar a primeira linha da Planilha
        'de Resumo porque ela começa a copiar as Planilhas
        'na linha 2, e não na 1:
        wsTodos.Rows(1).Delete
        
    End Sub
    
    'Função para determinar o UsedRange real de uma Planilha:
    Function rngUsado(ws As Worksheet) As Range
        With ws
            Set rngUsado = .Range("A1:" & _
              .UsedRange(.UsedRange.Cells.Count).Address)
        End With
    End Function
    Mais informações em: http://www.ambienteoffice.com.br/excel/concatenar_varias_planilhas/

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    domingo, 17 de junho de 2012 20:44
    Moderador