Gửi bạn code tạo chuỗi loại bỏ ký tự trùng
Function StrUnique(Text As String) As String
Dim i As Long, Temp
On Error Resume Next
If InStr(Text, ",") Then
Temp = Split(Text, ",")
With CreateObject("Scripting.Dictionary")
For i = 0 To UBound(Temp)
.Add Temp(i), ""
Next i
StrUnique = Join(.Keys, ",")
End With
Else
StrUnique = Left(Text, 1)
For i = 1 To Len(Text)
If InStr(StrUnique, Mid(Text, i, 1)) = 0 Then StrUnique = StrUnique & Mid(Text, i, 1)
Next i
End If
End Function