Giúp mình ghép nhiều file thành một file. (1 người xem)

[hanhnguyen120221cuty]

Chào anh chị em trong diễn đàn. Mình có 2 file như file đính kèm. Mình muốn ghép lại thành 1 file có các cột như file mẫu. Các bạn giúp mình, mình đã thử dùng power query nhưng mình không làm được..

 

[DeTong]

Thay M code này trong Transform Sample File.

let
    Source = Excel.Workbook(Parameter1, null, true),
    #"PPL 1" = Source{[Name="PPL 2025"]}[Data],
    #"Removed Top Rows" = Table.Skip(#"PPL 1",9),
    #"Filtered Rows" = Table.SelectRows(#"Removed Top Rows", each ([Column1] <> null)),
    t = Table.RemoveLastN(#"Filtered Rows",7),
    Custom1 = #table({ t[Column1]{1}, t[Column1]{0}, t[Column1]{2}, t[Column2]{4}, t[Column5]{4},t[Column3]{4},t[Column4]{4} },
         {{t[Column3]{1}, t[Column3]{0}, t[Column3]{2}, t[Column2]{5}, t[Column5]{5} ,t[Column3]{5},t[Column4]{5}   }}),
    #"Changed Type" = Table.TransformColumnTypes(Custom1,{{"Mã số thuế (Tax Code):", type text}, {"Tên đơn vị (Client's name):", type text}, {"Địa chỉ (Address):", type text}, {"Tên hàng hóa, dịch vụ#(lf)(Name of goods, services)", type text}, {"Giấy chứng nhận/Hợp đồng/Đơn BH#(lf)Số…… ngày…../…../20…..#(lf)(Reference number and date of Policy)", type text}, {"Số tiền trước thuế GTGT", Currency.Type}, {"Thuế suất GTGT", Int64.Type}})
in
    #"Changed Type"

 

[HUONGHCKT]

Chào anh chị em trong diễn đàn. Mình có 2 file như file đính kèm. Mình muốn ghép lại thành 1 file có các cột như file mẫu. Các bạn giúp mình, mình đã thử dùng power query nhưng mình không làm được..

Tham khảo thêm Code VBA trong file đính kèm :
Lưu ý
+các file muốn lấy dữ liệu được cùng chứa trong folder với file mẫu.xlsm
+Sh để lấy dữ liệu của các file nguồn đều có tên là PPL 2025
kết quả từ dòng 10 (để so sánh với kết quả mẫu)