Ai cho em hỏi em viết cái Function random không trùng nhau như này mà khi chạy nó toàn ra các kết quả giống nhau như này
Đây là đoạn code :
Function UniqueRandomNum(Bot As Long, Top As Long, Amount As Long)
On Error Resume Next
If Amount > Top - Bot + 1 Then Amount = Top - Bot + 1
With CreateObject("Scripting.Dictionary")
Do
.Add Int(Rnd() * (Top - Bot + 1)) + Bot, ""
Loop Until .Count = Amount
UniqueRandomNum = WorksheetFunction.Transpose(.Keys)
End With
End Function
