1、我们利用函数随机取数，会出现重复数值，要想取出不重复数，应用函数的话，比较复杂，但利用VBA中自定义函数就可以很轻松地解决这个问题，随机取出不重复数值！
2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!
3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！
4、会弹出模块编辑窗口！
5、在代码编辑窗口输入以下代码：
Function sjsh(max As Integer, min As Integer, num As Integer)
Application.Volatile
Set d = CreateObject("scripting.dictionary")
Do
i = WorksheetFunction.RandBetween(min, max)
d(i) = ""
Loop Until num = d.Count
sjsh = d.keys
End Function
6、在A1单元格输入自定义函数“=sjsh”,点击函数图标，在弹出的函数对话框中依次输入数据！如图所示。
7、点击【确定】按钮，不重复随机数便会被取出来！
