Poderia mandar o txt original(mesmo que com os 4 registros) bem como um demostrativo, no Excel de como espera ter os dados finais (esse faça manualmente).

OBS.: OS ARQUIVOS DEVEM SER COMPACTADOS (ZIP/RAR/7Z...)

Poderia mandar o txt original(mesmo que com os 4 registros) bem como um demostrativo, no Excel de como espera ter os dados finais (esse faça manualmente).

OBS.: OS ARQUIVOS DEVEM SER COMPACTADOS (ZIP/RAR/7Z...)

segue o arquivo.

desde ja

agradeço muito rs

Experimente

Sub ImpCamb()
Dim ws As Workbook
Set ws = ThisWorkbook
'Alterar caminho para o arquivo txt
    Workbooks.OpenText Filename:="C:DownloadsCAMBRIDGE_teste.txt", Origin:= _
        xlMSDOS, StartRow:=1, 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), Array(5, 8), Array(6, 8), Array(7, 1), Array(8, 1), Array(9, 1), _
        Array(10, 1)), TrailingMinusNumbers:=True
    For x = 1 To Cells(Cells.Rows.Count, "A").End(xlUp).Row
        ws.Sheets("Plan2").Range("A" & x) = Range("A" & x) & Range("B" & x)
        ws.Sheets("Plan2").Range("B" & x) = Range("C" & x) & Range("D" & x)
        ws.Sheets("Plan2").Range("C" & x) = Range("E" & x)
        ws.Sheets("Plan2").Range("D" & x) = Range("F" & x)
        ws.Sheets("Plan2").Range("E" & x) = Range("G" & x)
        ws.Sheets("Plan2").Range("F" & x) = Range("H" & x)
        ws.Sheets("Plan2").Range("G" & x) = Range("I" & x)
        ws.Sheets("Plan2").Range("H" & x) = Range("J" & x)
    Next
    ActiveWindow.Close
    Cells.Select
    Cells.EntireColumn.AutoFit
End Sub

utilizei esse codigo

porém esta dando um erro nessa linha que não consegui descobrir.

ws.Sheets("Plan2").Range("A" & X) = Range("A" & X) & Range("B" & X)

att.

No seu arquivo não deve ter a planilha 2 (Plan2).Altere para o nome de sua planilha, provavelmente Plan1, ou adicione uma.

Boa

Observei isso porém estava altrando na planilha criada.

Agora deu certinho.
Só a ultima coluna que o valor ficou como texto.
Alguma dica?

Desde ja muito obrigado mesmo pela ajuda

Experimente assim --> ws.Sheets("Plan2").Range("H" & x) = Range("J" & x)*1

Boa tarde Ricko

Movi teu tópico para o fórum VBA & Macros, pois este local é reservado apenas para a apresentação dos novos usuários do fórum.

No início vou deixar mostrando o tópico nos 2 fóruns para você se localizar.

At.te

Patropi - Moderador

ok Obrigado.

isso não ira se repetir rs.

tenham uma ótima semana.