Hàm sắp xếp dữ liệu không trùng theo điều kiện

[nvh611]

Nhờ các bạn viết giúp hàm như file đính kèm
Xin trân thành cảm ơn các bạn

 

[stao]

Nhờ các bạn viết giúp hàm như file đính kèm
Xin trân thành cảm ơn các bạn

Không biết vầy có đúng yêu cầu không nhỉ?

 

[nvh611]

Không biết vầy có đúng yêu cầu không nhỉ?

Cảm ơn bạn @stao kết quả như vậy là đúng rồi bạn
Nhưng mình muốn dùng hàm
Mong bạn viết giúp mình hàm được không?

 

[befaint]

D7=MID(SUBSTITUTE(SUBSTITUTE("0123456789",D5,""),D6,""),1,1)
hoặc
D7=MID(SUBSTITUTE(SUBSTITUTE("0123456789",D5,""),D6,""),RANDBETWEEN(1,LEN(SUBSTITUTE(SUBSTITUTE("0123456789",D5,""),D6,""))),1)

 

[nvh611]

D7=MID(SUBSTITUTE(SUBSTITUTE("0123456789",D5,""),D6,""),1,1)
hoặc
D7=MID(SUBSTITUTE(SUBSTITUTE("0123456789",D5,""),D6,""),RANDBETWEEN(1,LEN(SUBSTITUTE(SUBSTITUTE("0123456789",D5,""),D6,""))),1)

Cảm ơn bạn @befaint 2 công thức trên chưa được bạn ơi, nó bị trùng số (Với yêu cầu của mình là không trùng số ở kết quả "Tức là phải đủ 10 từ 0-9)

 

[befaint]

không trùng số ở kết quả

Sao bài #1 không nói luôn ra? Chỉ việc nói: Dãy số kết quả cũng không trùng nhau mà không nói được. Mắc mệt thật.

 

[nvh611]

Sao bài #1 không nói luôn ra? Chỉ việc nói: Dãy số kết quả cũng không trùng nhau mà không nói được. Mắc mệt thật.

Mình cũng đã nói rồi mà. Nhưng chắc chưa đủ nghĩa

 

[HieuCD]

Nhờ các bạn viết giúp hàm như file đính kèm
Xin trân thành cảm ơn các bạn

Xem cách dùng trong file

Function KhongTrung(ByVal Rng1 As Range, ByVal Rng2 As Range)
    Dim Arr() As Long, aTest() As String
    Dim i&, j&, N&, k&, rn&, q&
  For i = 1 To Rng1.Rows.Count
    For j = 1 To Rng1.Columns.Count
      N = N + 1
      ReDim Preserve Arr(1 To N)
      Arr(N) = Rng1(i, j)
      ReDim Preserve aTest(1 To N)
      aTest(N) = "," & Rng1(i, j) & "," & Rng2(i, j) & ","
    Next j
  Next i
  For q = 1 To 1000000
    k = N
    For i = 1 To k
      rn = Int(k * Rnd() + 1)
      tmp = Arr(rn)
      Arr(rn) = Arr(k)
      Arr(k) = tmp
      If InStr(1, aTest(rn), Arr(rn)) Then Exit For
      If InStr(1, aTest(k), Arr(k)) Then Exit For
      k = k - 1
    Next i
    If i = N + 1 Then Exit For
  Next q
  If q = 1000001 Then KhongTrung = "#NA" Else KhongTrung = Arr
End Function

 

[nvh611]

Xem cách dùng trong file

Function KhongTrung(ByVal Rng1 As Range, ByVal Rng2 As Range)
    Dim Arr() As Long, aTest() As String
    Dim i&, j&, N&, k&, rn&, q&
  For i = 1 To Rng1.Rows.Count
    For j = 1 To Rng1.Columns.Count
      N = N + 1
      ReDim Preserve Arr(1 To N)
      Arr(N) = Rng1(i, j)
      ReDim Preserve aTest(1 To N)
      aTest(N) = "," & Rng1(i, j) & "," & Rng2(i, j) & ","
    Next j
  Next i
  For q = 1 To 1000000
    k = N
    For i = 1 To k
      rn = Int(k * Rnd() + 1)
      tmp = Arr(rn)
      Arr(rn) = Arr(k)
      Arr(k) = tmp
      If InStr(1, aTest(rn), Arr(rn)) Then Exit For
      If InStr(1, aTest(k), Arr(k)) Then Exit For
      k = k - 1
    Next i
    If i = N + 1 Then Exit For
  Next q
  If q = 1000001 Then KhongTrung = "#NA" Else KhongTrung = Arr
End Function

Cảm ơn bạn @HieuCD Quá chuẩn rồi bạn ơi
Chúc bạn ngày mới có nhiều niềm vui

 

[Phuocam]

Box lập trình lại gửi công thức, hahaha.

Nếu ô L8 bị lỗi #NUM!, vui lòng nhấn F9 để thay đổi.

 

[nvh611]

Box lập trình lại gửi công thức, hahaha.

Nếu ô L8 bị lỗi #NUM!, vui lòng nhấn F9 để thay đổi.

Cảm ơn bạn @phuocam rất nhiều, chúc bạn cuối tuần vui