在VBA中，自定义函数的实例应用（3）

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、点击【确定】按钮，不重复随机数便会被取出来！