Excluir Células vazias e cabeçario repetido para BD.
Enviado: 02 Ago 2016 às 17:08
por 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.
Re: Excluir Células vazias e cabeçario repetido para BD.
Enviado: 02 Ago 2016 às 17:50
por alexandrevba
Boa tarde!!
Use o Gravador de Macros
Código: Selecionar todosSub 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
Excluir Células vazias e cabeçario repetido para BD.
Enviado: 09 Ago 2016 às 11:27
por anacletotranstusa
Olá!
Desculpe a demora. Muito obrigado! Ficou Perfeito.