excel抽签函数不重复_excel抽签
2023-03-07 00:55:51
|
来源：互联网
【资料图】
1、用VBA代码（我设置的抽签1-100，不会有重复），如下：Sub cq()Range("c3:e3").ClearContentsDim i As Bytei = 3T1:Do While i < 6 If Cells(3, i) = "" Then Cells(3, i) = Application.RandBetween(1, 100) End If i = i + 1LoopIf Application.Or(Cells(3, 3) = Cells(3, 4), Cells(3, 3) = Cells(3, 5), Cells(3, 4) = Cells(3, 5)) Then Range("c3:e3").ClearContents GoTo T1End IfEnd Sub效果如下（若图片没有动画。
2、请点一下图片）。
本文就为大家分享到这里，希望小伙伴们会喜欢。
