Tạo một cột số không trùng nhau từ 3 cột số trở lên

[kysybongdemictu]

góp thêm một đoạn code

Function SoKhongTrung(rng1 As Range, rng2 As Range, rng3 As Range, r As Long)
Dim arr1, arr2, arr3 As Variant, dic As Object, kq(), v As String, i, j, k, l As Long
arr1 = rng1.Value
arr2 = rng2.Value
arr3 = rng3.Value

Set dic = CreateObject("Scripting.Dictionary")

For i = 1 To UBound(arr1)
    For j = 1 To UBound(arr2)
        For k = 1 To UBound(arr3)
        v = arr1(i, 1) & arr2(j, 1) & arr3(k, 1)
            If Not dic.exists(v) Then
                l = l + 1
                dic.Add v, ""
                ReDim Preserve kq(1 To l)
                kq(l) = v
            End If
        Next k
    Next j
Next i
SoKhongTrung = kq(r)
End Function

cthuc là

=SoKhongTrung($A$2:$A$21,$B$2:$B$11,$C$2:$C$6,ROW(1:1))

kéo xuống

[vinhtc86]

Nghe tác giả mô tả lòng vòng, chẳng hiểu muốn cái gì nữa. Cái file đầu tiên và những mô tả sau đó chẳng "ăn nhậu" gì nhau
(làm cho mất công)