Xin gửi các bạn.Nhờ các bạn giúp. Cảm ơn nhiều.
Không thấy code VBA bạn đã dùng cho ra kết quả mà chưa đúng ý để ở đâu cả.
Nhờ bạn làm giúp luôn.
Mình chỉ lọ mọ tìm code để sửa, may ra thì được, làm hộ từ A đến Z thì chưa đủ khả năng.
Vậy để tối nay mình gửi bạn nhé.
Gửi bạn file Excel. bạn cố gắng giúp mình nhé. Cảm ơn nhiều.
Được rồi bạn ah. Bạn thật tuyệt vời. Cảm ơn bạn nhiều nhé.
Nhưng mà bấm chạy 2 lần mới được, tên file gốc bị đổi, ví dụ 1 thì thành 01, 2 thì thành 02...
Sao máy tôi chạy nó không theo thứ tự nhỉ..
let
Source = Folder.Files("C:\Users\XTN84\Desktop\Thumuc"),
Remove_Col = Table.RemoveColumns(Source, {"Extension", "Date accessed", "Date modified", "Date created", "Attributes", "Folder Path"}),
Add_col = Table.AddColumn(Remove_Col, "Thêm_Tiền_Tố", each
Text.PadStart(Text.BeforeDelimiter([Name], "."), 2, "0")
& Text.Middle([Name], Text.PositionOf([Name], "."))
),
Sorted_Col= Table.Sort(Add_col,{{"Thêm_Tiền_Tố", Order.Ascending}})
in
Sorted_Col
