Ðề: Xin giúp công thức cho "Tìm và loại bỏ dữ liệu trùng"
Bài này hay nhỉ
Paste cái code này vào
Public Function CCARRAY(rr As Variant, sep As String)
'rr is the range or array of values you want to concatenate. sep is the delimiter.
Dim rra() As Variant
Dim out As String
Dim i As Integer
On Error GoTo EH
rra = rr
out = ""
i = 1
Do While i <= UBound(rra, 1)
If rra(i, 1) <> False Then
out = out & rra(i, 1) & sep
End If
i = i + 1
Loop
out = Left(out, Len(out) - Len(sep))
CCARRAY = out
Exit Function
EH:
rra = rr.Value
Resume Next
End Function
công thức tìm A trùng
=CCARRAY(IF(COUNTIFS(INDIRECT("$A$1:" & ADDRESS(ROW(A1:A7),1)),A1:A7,INDIRECT("$B$1:" & ADDRESS(ROW(B1:B7),2)),B1:B7)>1,B1:B7,0),", ")
CTL+ALT+Enter
