Question

EXCEL中VB代码怎么用

Dim a As Range, b As Range
Set a = Range("A1:A17")
a.ClearContents
Randomize
For Each b In a
Do
b = Int(1 + Rnd * 36)
Loop Until Application.WorksheetFunction.CountIf(a, b) = 1
Next
这段代码怎么用啊？
还有把b = Int(1 + Rnd * 36)改成b = Int(B1 + Rnd * D1 )可以不？
我是小白~表鄙视我，江湖救急，希望大家帮忙啊

Answer 1

最好是【百度云盘】（一个使用百度帐号登录的可以对话和传文件的应用软件）联系，传文件做好回你。
你这个代码是产生不重复的随机数，可以录制新宏、编辑、粘贴在End Sub之前，或者自己按ALT+F11输入代码，但是需要一定的编程基础，可能一时半会不容易掌握。
还有把b = Int(1 + Rnd * 36)改成b = Int([B1] + Rnd * [D1] )

Answer 2

在excel中按alt+f11 然后选择对应的sheet或者模块输入以上代码即可，具体要根据你这段代码的用途来定。