Vòng lặp trong VBA

[Sói1102]

Chào mọi người!!!
Mình có dữ liệu này mong mọi người viết code giúp ạ.
Mong muốn:Khi chạy code sẽ copy dữ liệu từng dòng ở cột A sang cột E cho đến khi hết 1 RACK ở cột B thì sẽ nhảy sang cột tiếp theo.

 

[hocexcel_1991]

Dùng công thức Excel 365 và Power Query

let
    Source = Excel.CurrentWorkbook(){[Name="Table2"]}[Content],
    Gr = Table.Group(Source, {"RACK"}, {{"D", each [ID]}}),
    KQ = Table.FromColumns(Gr[D],Gr[RACK])
in
    KQ

=LET(colID,A2:A23,colRack,B2:B23,uID,UNIQUE(colRack),DROP(REDUCE("",TOROW(uID),LAMBDA(n,u,IFNA(HSTACK(n,FILTER(colID,colRack=u)),""))),,1))

 

[ptm0412]

Nếu 365 làm theo phai bài 1 thì chỉ 1 công thức duy nhất

=IF($B$1:$B$28=INDEX(UNIQUE($B$1:$B$28),COLUMN(A1: D1)),$A$1:$A$28,"")

 

[hongphuong1997]

Nếu 365 làm theo phai bài 1 thì chỉ 1 công thức duy nhất

=IF($B$1:$B$28=INDEX(UNIQUE($B$1:$B$28),COLUMN(A11)),$A$1:$A$28,"")

View attachment 290402

Bài dạng như này trước cháu có đọc rùi, hình như là bác hoặc bác NDU.... Hoặc Bác @HieuCD dẫ làm rồi mà. Có cả code và có cả hàm

 

[ptm0412]

Bài dạng như này trước cháu có đọc rùi, hình như là bác hoặc bác NDU.... Hoặc Bác @HieuCD dẫ làm rồi mà. Có cả code và có cả hàm

Thời ndu còn xuất hiện thì chưa có 365.

 

[hongphuong1997]

Thời ndu còn xuất hiện thì chưa có 365.

Bác cho cháu hỏi chút xíu nhé
Bác NDU đi đâu hở bác?

 

[SA_DQ]

. . .
Bác NDU đi đâu hở bác?

NDU giờ không ghiền Excel nữa rồi, chuyển qua ghiền cà fê

 

[tranhungdao12a3]

Có thể sử dụng hàm sau:
KQ =
VAR Racks =
CALCULATETABLE(
VALUES('Table'[RACK]),
ALL('Table')
)
RETURN
CONCATENATEX(
Racks,
CONCATENATEX(
FILTER('Table', 'Table'[RACK] = EARLIER('Table'[RACK])),
'Table'[ID],
", "
),
UNICHAR(10)
)