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

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar 
    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