Practica excel avanzado

Desarrollo de la práctica:
A continuación presento los resultados que se obtuvieron durante el ejercicio # 4.
Importa una la base de datos contenida en el siguiente archivo de texto. Los datoslos deberás copiar en una hoja llamada “Facturas”.
Se importo usando la función Obtener datos desde texto.

Crea una macro que copie en una hoja nueva los datos y los acomode de filas a columnas.Se grabo una macro para realizar esta función. Para realizar el acomodo de las columnas se utilizo la función Texto en columnas que aparece en herramienta de datos de Excel.

Nota: La macro larealice para que se hiciera en la misma hoja, para que poder utilizar la hoja llamada Facturas y de ahí sacar toda la información. Anexo como quedo la macro grabada.

Sub Macro5()
' Macro5 Macro
'Acceso directo: CTRL+t
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote,ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)),TrailingMinusNumbers:= _
True
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Range("A1").Select
Range(Selection,Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText =False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End WithRange("A1").Select
End Sub


Verifica que no existan datos duplicados, de lo contrario, elimina las filas duplicadas con la función de Excel correspondiente.
Para verificar los elementos duplicados...