Tổng hợp chức vụ

[yeu_excel]

Mình có một danh sách giáo viên, mỗi giáo viên có một vài chức vụ khác nhau. Dùng công thức nào để tổng hợp các chức vụ vào một cột. Các bạn xem file rồi giúp đỡ mình nha. Xin cảm ơn!

 

[thivantan]

Giúp bạn một cách dùng VBA. Thân.

 

[yeu_excel]

Cám ơn bạn. Quá tuyệt vời. Vậy có cách nào dùng công thức không ?

 

[hanhpptc]

Cám ơn bạn. Quá tuyệt vời. Vậy có cách nào dùng công thức không ?[/QUOT
Code cell M4 =IF(C4="x",$C$3&", ","")&IF(D4="x",$D$3&", ","")&IF(E4="x",$E$3&", ","")&IF(F4="x",$F$3&", ","")&IF(G4="x",$G$3&", ","")&IF(H4="x",$H$3&", ","")&IF(I4="x",$I$3&", ","")&IF(CJ4="x",$J$3&", ","")&IF(K4="x",$K$3&", ","")&IF(L4="x",$L$3,"")&"."

 

[ndu96081631]

Giúp bạn một cách dùng VBA. Thân.

Nếu là code VBA thì bài này nên dùng UDF bạn à (mức độ tùy biến cao hơn)

 

[yeu_excel]

Rất cám ơn các bạn. Cho mình hỏi thêm vấn đề cuối. Nếu mình thay các dấu x thành tên cụ thể như file sau thì giải quyết thế nào?

 

[hanhpptc]

Rất cám ơn các bạn. Cho mình hỏi thêm vấn đề cuối. Nếu mình thay các dấu x thành tên cụ thể như file sau thì giải quyết thế nào?

Bạn xem File đinh kèm nhé

 

[ndu96081631]

Và đây là cách dùng code VBA

Function JoinText(SrcArr, Optional Sep As String = ", ") As String
  On Error GoTo Cont1
  With Application.WorksheetFunction
    JoinText = Join(.Transpose(SrcArr), vbNullChar)
    GoTo Cont2
Cont1:
    JoinText = Join(.Transpose(.Transpose(SrcArr)), vbNullChar)
Cont2:
    JoinText = Replace(Replace(JoinText, " ", vbBack), vbNullChar, " ")
    JoinText = .Trim(JoinText)
    JoinText = Replace(Replace(JoinText, " ", Sep), vbBack, " ")
  End With
End Function