Question

急求一个EXCEL抽签程序，要求不要重复抽过的，谢谢

急求一个EXCEL抽签程序，要求不要重复抽过的，谢谢

Answer 1

用VBA代码（我设置的抽签1-100，不会有重复），如下：

Sub cq()

Range("c3:e3").ClearContents

Dim i As Byte

i = 3

T1:

Do While i < 6

    If Cells(3, i) = "" Then

        Cells(3, i) = Application.RandBetween(1, 100)

    End If

    i = i + 1

Loop

If 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 T1

End If

End Sub

效果如下（若图片没有动画，请点一下图片）