Este fórum está sendo desativado

[anacletotranstusa]

Olá Pessoal,
Preciso criar uma base de Dados do arquivo anexo, ou seja, preciso excluir as colunas e linhas vazias da mesma forma o cabeçario que se repete, esse arquivo é gerado de um outro sistema, não tendo uma formatação de exportação adequada para minha necessidade
Abraço.

[alexandrevba]

Boa tarde!!

Use o Gravador de Macros

Código: Selecionar todos

Sub Macro1()
'
' Macro1 Macro
'

'
    Rows("1:5").Select
    Selection.Delete Shift:=xlUp
    Cells.Select
    ActiveWorkbook.Worksheets("TesteColaborador").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("TesteColaborador").Sort.SortFields.Add Key:=Range( _
        "B2:B972"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("TesteColaborador").Sort
        .SetRange Range("A1:AB972")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1:AB660").Copy Plan2.Range("A" & Rows.Count).End(xlUp)(2)
End Sub

Att

[anacletotranstusa]

Olá!
Desculpe a demora. Muito obrigado! Ficou Perfeito.