Nhờ giúp đỡ code copy hàng thành cột

[Shaa]

Chào các bác, em đang cần copy dữ liệu chuyển từ hàng thành cột theo mẫu cố định mà chưa biết làm
các bác giúp em một code để thực hiện với nhé, em để mẫu trong file và ảnh ạ

 

[HUONGHCKT]

Chào các bác, em đang cần copy dữ liệu chuyển từ hàng thành cột theo mẫu cố định mà chưa biết làm
các bác giúp em một code để thực hiện với nhé, em để mẫu trong file và ảnh ạ

Tham khảo code trong file đính kèm:
nhấn vào mũi tên để có được kết quả

 

[hongminh_0306]

Bài này bạn tìm hiểu power query chắc làm được.

 

[DeTong]

Đây là M code của Power query

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    NgayGio = List.RemoveNulls(Record.ToList(Source{0})),
    ColName = List.Distinct(Record.ToList(Source{1})),
    ToFrom = List.Transform(List.Split(Table.ToColumns(Table.Skip(Source,2)),List.Count(ColName)), each Table.FromColumns(_,ColName)),
    Custom2 = Table.FromColumns({NgayGio} & {ToFrom}),
    #"Changed Type" = Table.TransformColumnTypes(Custom2,{{"Column1", type date}}),
    #"Added Custom" = Table.AddColumn(#"Changed Type", "Custom", each "SMT"),
    #"Reordered Columns" = Table.ReorderColumns(#"Added Custom",{"Column1", "Custom", "Column2"}),
    #"Renamed Columns" = Table.RenameColumns(#"Reordered Columns",{{"Column1", "Date"}, {"Custom", "Dept"}}),
    #"Expanded Column2" = Table.ExpandTableColumn(#"Renamed Columns", "Column2", {"Line", "MO", "Qty"}, {"Line", "MO", "Qty"}),
    #"Filtered Rows" = Table.SelectRows(#"Expanded Column2", each ([Line] <> null))
in
    #"Filtered Rows"

 

[VetMini]

Tìm hiểu cái mốc xì gì cho mệt.
Chiir cần nói thẳng "xin code VBA" thì sẽ có từ a đến z. Lắm khi chỉ cần tải file về, hết.

 

[Shaa]

Tham khảo code trong file đính kèm:
nhấn vào mũi tên để có được kết quả

Cảm ơn bác rất nhiều ạ, trông code ngắn gọn quá

Bài đã được tự động gộp: 19/6/24

Đây là M code của Power query

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    NgayGio = List.RemoveNulls(Record.ToList(Source{0})),
    ColName = List.Distinct(Record.ToList(Source{1})),
    ToFrom = List.Transform(List.Split(Table.ToColumns(Table.Skip(Source,2)),List.Count(ColName)), each Table.FromColumns(_,ColName)),
    Custom2 = Table.FromColumns({NgayGio} & {ToFrom}),
    #"Changed Type" = Table.TransformColumnTypes(Custom2,{{"Column1", type date}}),
    #"Added Custom" = Table.AddColumn(#"Changed Type", "Custom", each "SMT"),
    #"Reordered Columns" = Table.ReorderColumns(#"Added Custom",{"Column1", "Custom", "Column2"}),
    #"Renamed Columns" = Table.RenameColumns(#"Reordered Columns",{{"Column1", "Date"}, {"Custom", "Dept"}}),
    #"Expanded Column2" = Table.ExpandTableColumn(#"Renamed Columns", "Column2", {"Line", "MO", "Qty"}, {"Line", "MO", "Qty"}),
    #"Filtered Rows" = Table.SelectRows(#"Expanded Column2", each ([Line] <> null))
in
    #"Filtered Rows"

Em cảm ơn bác nhiều ạ