Nhờ chỉ giúp sử dụng hàm gì để nối chuỗi theo điều kiện

[HaiPCT]

Nhờ mọi người chỉ giúp: Sử dụng hàm nào để từ bảng dữ liệu vào ra được Bảng kết quả cần có?

 

[snow25]

View attachment 301065
Nhờ mọi người chỉ giúp: Sử dụng hàm nào để từ bảng dữ liệu vào ra được Bảng kết quả cần có?

Làm cái code VBA cho nhanh.

 

[HaiPCT]

Làm cái code VBA cho nhanh.

Bạn có thể hướng dẫn cụ thể giúp mình không? Mình xin cảm ơn

 

[Hoàng Tuấn 868]

Bạn có thể hướng dẫn cụ thể giúp mình không? Mình xin cảm ơn

Nếu bạn chưa biết về VBA thì chỉ có viết cho bạn sử dụng thôi, chứ hướng dẫn thì đến bao giờ bạn mới có thể tự làm được.

 

[huuthang_bd]

Sử dụng hàm nào

Cột E sử dụng hàm UNIQUE, cột F sử dụng hàm TEXTJOIN.

 

[befaint]

Hình bài #1 là Excel 2010. Không có mấy hàm của Excel phiên bản mới (UNIQUE, TEXTJOIN...)



Lưu ý ai có nhã ý giải bài giúp thớt thì nhớ tét đáp án kỹ 3 tháng trong phòng thí nghiệm trước khi đăng lên nhé.

 

[SA_DQ]

Đáp án xài VBA gồm:

Bước 1 tạo dữ liệu cột 'E' do chủ bài đăng thực hiện;
Buốc 2: Chép hàm tự tạo vô cửa sổ VBE

Function TongHop(CSDL As Range, Ma As Integer) As String
 Dim Cls As Range:                  Dim Rws As Long
 
 Rws = [B65432].End(xlUp).Row
 For Each Cls In CSDL(1).Resize(Rws)
    If Cls.Value = Ma Then _
        TongHop = TongHop & Cls.Offset(, 1).Value
 Next Cls
End Function

Bước cuối: Cú pháp hàm tại [F3]: =TongHop(B$2:C11,E3)

[Lần sau nên đưa file giả lập lên như là nhã ý . . . ]
Tạm biệt!

 

[VetMini]

...
Tạm biệt!

Biệt chi. Hông chờ được một nốt nhạc sao?

...
Lưu ý ai có nhã ý giải bài giúp thớt thì nhớ tét đáp án kỹ 3 tháng trong phòng thí nghiệm trước khi đăng lên nhé.

Có thấy file dữ liệu đâu mà tét.

Thử chọc ổ ong vò vẽ:

Hình như tiếng Trung thì câu hỏi là "sử dụng hàm răng"

Mình cũng lười code VBA nhưng nghĩ lại không phải 365/2021 thì chả có hàm TextJoin để làm việc.
Thử một phen chờ "nốt nhạc" du dương cỡ nào.

Function NotNhacDom(rg As Range, cde As Long) As String
Set rga = rg.Resize(, 1)
m = 0
For i = 1 To Application.CountIf(rga, cde)
m = m + Application.Match(cde, rga.Offset(m), 0)
NotNhacDom = NotNhacDom & "," & rg.Cells(m, 2)
Next i
NotNhacDom = Mid(NotNhacDom, 2)
End Function