excel báo lỗi khi save chi dum em cách khắc phục (2 người xem)

[titanic]

em có dùn 1 hàm index cùng với 1 modun tải trên giaiphapexcel về

=INDEX('SỐ ĐỂ IN TƠ RƠI'!$H$6:$H$2006,UniqueRandomNum(0,'SỐ ĐỂ IN TƠ RƠI'!H4,360))

modune
Option Explicit
Function UniqueRandomNum(Bottom As Long, Top As Long, Amount As Long)
Application.Volatile
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