Giúp đỡ sắp sếp lại file excel copy từ notepad

[hoangnt811]

Mọi người đi qua giúp mình file excel này với.
Mình chạy phần mềm ra file output.bom xuất ra dữ liệu rất đẹp. Nhưng khi nhập vào excel thì nó ra 1 đống hỗn lộn như trong file excel 1.
Mọi người chỉ giúp các sắp xếp lại thành hàng cột riêng giống trong file bom.
Mình cám ơn
file output là file text. Mình ko up lên được lên đổi thành zip. Mọi người giúp đổi lại.

đây là file output xuất ra

 

[excel_lv1.5]

Mọi người đi qua giúp mình file excel này với.
Mình chạy phần mềm ra file output.bom xuất ra dữ liệu rất đẹp. Nhưng khi nhập vào excel thì nó ra 1 đống hỗn lộn như trong file excel 1.
Mọi người chỉ giúp các sắp xếp lại thành hàng cột riêng giống trong file bom.
Mình cám ơn
file output là file text. Mình ko up lên được lên đổi thành zip. Mọi người giúp đổi lại.
View attachment 207784
đây là file output xuất ra
View attachment 207781

Bạn chạy thử code này :

Sub a()
Dim spath As String, strtext As String, i As Long, txt, j As Long
spath = "D:\output.txt"
Open spath For Input As #1
Do While Not EOF(1)
    i = i + 1
    Line Input #1, strtext: strtext = Replace(strtext, "    ", "|")
    Do While InStr(1, strtext, "||")
        strtext = Replace(strtext, "||", "|")
    Loop
    txt = Split(strtext, "|")
    For j = 0 To UBound(txt)
        txt(j) = Trim(txt(j))
    Next
    Cells(i, 1).Resize(1, UBound(txt) + 1) = txt
Loop
Close #1
End Sub