- Tham gia
- 18/3/08
- Bài viết
- 8,309
- Được thích
- 15,867
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
Mình có dữ liêu thế này
a 1
b 2
c 3
a 4
b 7
a 3
Mình muốn có kết quả tham chiếu
a--->1 and 4 and 3
b---> 2 and 7
Mong nhận được sự giúp đỡ từ diễn đàn
Chân thành cám ơn các bạn.
Dùng hàm sau:
Mã:
Function TIM(CELLTIM, VUNG As Range, SOCOT As Long)
Dim rCell As Range, KQ
TIM = CVErr(xlErrNA)
For Each rCell In VUNG
If rCell = CELLTIM Then
KQ = KQ & " and " & rCell.Offset(, SOCOT - 1)
End If
Next rCell
If KQ <> "" Then
KQ = Right(KQ, Len(KQ) - 4)
TIM = Trim(KQ)
End If
End Function
Cú pháp: =Tim(CellTim,Vungtim,SoCotCanTim)