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

1、我们利用函数随机取数，会出现重复数值，要想取出不重复数，应用函数的话，比较复杂，但利用VBA中自定义函数就可以很轻松地解决这个问题，随机取出不重复数值！

3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！

5、在代码编辑窗口输入以下代码：Function sjsh(max As Integer, min As Integer, num As 朐袁噙岿Integer)Application.VolatileSet d = CreateObject("scripting.dictionary")Do i = WorksheetFunction.RandBetween(min, max) d(i) = ""Loop Until num = d.Countsjsh = d.keysEnd Function

7、点击【确定】按钮，不重复随机数便会被取出来！