Nếu bạn muốn vùng kết quả là ngẫu nhiên. Nhấm vào nút "Tạo Danh sách".
Cột E:G là vùng để bạn kiểm tra kết quả, có thể bỏ đi.
Option Explicit
Sub quayso()
Dim i&, j&, k&, r&, rng, tota&, arr(1 To 100000, 1 To 3), res(1 To 100000, 1 To 2)
Dim dic As Object
Set dic =...