Em có việc nhờ anh chị như sau
Cột F em có mã nhân viên, Cột G em có các quầy mà nhân viên làm việc và một nhân viên có thể đứng nhiều quầy
YC: Biết Mã nhân viên => Tìm Quầy mà nhân viên đó đứng (Dạng liệt kê quầy)
Em cám ơn.
Nếu dùng VBA thì thử file này, dùng công thức thì ... chưa biết.
[GPECODE=vb]Public Sub GPE()
Dim Dic As Object, sArr(), dArr(), I As Long, K As Long, Tem1 As String, Tem2 As String
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range([F6], [G65536].End(xlUp)).Value2
ReDim dArr(1 To UBound(sArr, 1), 1 To 3)
For I = 1 To UBound(sArr, 1)
Tem1 = sArr(I, 1): Tem2 = sArr(I, 1) & sArr(I, 2)
If Not Dic.Exists(Tem1) Then
K = K + 1
dArr(K, 1) = K
dArr(K, 2) = sArr(I, 1)
dArr(K, 3) = sArr(I, 2)
Dic.Add Tem1, K
Dic.Add Tem2, ""
Else
If Not Dic.Exists(Tem2) Then
Dic.Add Tem2, ""
dArr(Dic.Item(Tem1), 3) = dArr(Dic.Item(Tem1), 3) & ";" & sArr(I, 2)
End If
End If
Next I
[A6].Resize(K, 3) = dArr
Set Dic = Nothing
End Sub[/GPECODE]
