Dưới đây là một đoạn code mình tìm được trên diễn đàn, mình muốn dùng cho tất cá các file excel tạo mới hoặc đã tạo trước đó thì làm thế nào
Đây là link gốc:
https://www.giaiphapexcel.com/diendan/threads/tạo-dãy-số-ngẫu-nhiên-không-trùng.27286/#:~:text==UniqueRandomNum(Số nhỏ, Số lớn, bao nhiêu số cần,tổ hợp phím Ctrl + Shift + Enter
Option Explicit
Function UniqueRandomNum(Bottom As Long, Top As Long, Amount As Long)
'Application.Volatile '<--- Neu muon gia tri thay doi khi bam F9
On Error Resume Next
If Amount > Top - Bottom + 1 Then Amount = Top - Bottom + 1
With CreateObject("Scripting.Dictionary")
Do
.Add Int(Rnd() * (Top - Bottom + 1)) + Bottom, ""
Loop Until .Count = Amount
UniqueRandomNum = WorksheetFunction.Transpose(.Keys)
End With
End Function
