Em cảm ơn anh ạ.@sangucu
Thử code abc trong file đính kèm
Mã:Option Explicit Sub abc() Dim Nguon Dim Mang Dim Kq Dim dau, slD Dim i, j, k, x, z, t Nguon = Sheet1.Range("A2:B12") slD = UBound(Nguon) ReDim Mang(1 To 100) ReDim Kq(1 To 10, 1 To 10) Randomize dau = Int(Rnd() * (slD - 1)) + 1 For i = dau To dau + slD - 1 k = ((i - 1) Mod slD) + 1 For j = 1 To Nguon(k, 2) t = t + 1 Mang(t) = Nguon(k, 1) Next j Next i For z = 100 To 1 Step -1 k = Int(Rnd() * (z - 1)) + 1 i = Int((z - 1) / 10) + 1 j = ((z - 1) Mod 10) + 1 Kq(i, j) = Mang(k) Mang(k) = Mang(z) Next z With Sheet1 .Range("D2").Resize(10, 10).ClearContents .Range("D2").Resize(10, 10) = Kq .Range("D2").Resize(10, 10).Borders.LineStyle = 1 End With End Sub
Code hoàn hảo rồi anh.