Công thức nào cho kết quả này (1 người xem)

[daodaivu2014tb]

Em có mảng dữ liệu ...( A1:J3)...Em muốn tạo tổ hợp 3 cặp số khác nhau như bên ( cái này em làm thủ công ) nhưng nếu dữ liệu nhiều hơn thì dễ nhầm lẫn và Em mờ mắt mất thôi.....Xin nhờ các ACE trên GPE giúp Em code cho chính xác và nhanh hơn ạ..Em xin chân thành cảm ơn rất nhiều

 

[daodaivu2014tb]

Có Bác nào đi qua giúp Em tí.....

 

[ec ec]

Có Bác nào đi qua giúp Em tí.....

Sub TH()
Dim a(), c, i, j, k, m, r, u, x
Set s = Sheet1.[A1:J3]
For Each c In s
    If c <> "" Then
        ReDim Preserve a(i)
        a(i) = c
        i = i + 1
    End If
Next
u = UBound(a)
If u >= 2 Then
ReDim r(u ^ 3, 2)
For i = 0 To u - 2
    For j = i + 1 To u
        For k = j + 1 To u
            For x = 1 To 3
                r(m, x - 1) = Format(a(Choose(x, i, j, k)), "00")
            Next
            m = m + 1
        Next
    Next
Next
Sheet1.[E6].Resize(m+1, 3) = r
End If
End Sub