Lấy dãy chuỗi định trước không trùng trong vùng dữ liệu cho trước? (1 người xem)

[nqdn2010]

Tôi thấy trên diễn đàn rất nhiệu dạng này đọc cả đêm nhưng không áp dụng vào được vấn đề của tôi.
Tôi có kèm yêu cầu trong file mẫu mong sự giúp đỡ của các thành viên.
Tôi xin cám ơn!

 

[HieuCD]

Hôm nay chẳng có chỗ nào đi chơi nữa. Tiếp theo cái suy nghĩ dở hơi hôm qua làm 1 bài cho đỡ buồn

Cũng rảnh nên chạy thử ra ";;"
File có cài Bom không? Sao nặng ký vậy

 

[HieuCD]

Mình xin hỏi bài toán sử dụng số 0->9, chữ từ A-Z tạo các cặp chuỗi bất kỳ không trùng lập vào vùng
"H2:AL10"

Xem file

 

[SA_DQ]

Sub VungKhongTrung2()
  Const Alf As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  Dim J As Long, W As Long, Tmp As Integer
  Dim AA As String, BB As String
 
  Randomize:                            ReDim Arr(1 To 9, 1 To 30) As String
  For J = 1 To 9
    For W = 1 To 30
        Tmp = 1 + 9 * Rnd() \ 1
        If Tmp Mod 2 = 0 Then
            AA = Mid(Alf, 1 + J, 1):    BB = Mid(Alf, 6 + W, 1)
        Else
            BB = Mid(Alf, 1 + J, 1):    AA = Mid(Alf, 6 + W, 1)
        End If
        Arr(J, W) = AA & BB
    Next W
  Next J
  Sheet2.[h2].Resize(9, 30).Value = Arr()
 End Sub

 

[♫ђöล♥ßล†♥†µ♫]

Cũng rảnh nên chạy thử ra ";;"
File có cài Bom không? Sao nặng ký vậy

File nặng ký là do em để một tăm nghìn dòng dữ liệu anh ạ. Còn cái ";;" là sai vùng dữ liệu đầu vào
Em test thử Code của anh rồi mới thấy cái Code em vẽ ra chạy nhanh khủng khiếp (Như rùa chạy ma ra tông )

 

[nqdn2010]

♫ђöล♥ßล†♥†µ♫

Đúng là nặng ký thật bạn ơi!
Cám ơn sự hỗ trợ nhiệt tình của mọi người!
Để tôi Test tiếp