请教EXCEL用按钮随机抽取单个数，且能多次不重复抽取，直到指定数抽完

snpgfiq

请教高人老师，我工作上用，但我刚接触宏，请越详细越好，
环境：表一A1：A20内容为1~20；表二初始为空，用于存放抽取后的剩余数；表三初始空，用于存放抽取后的结果；表四为显示打印表，A1：A20=表三A1：A20，设有“抽取”和“重置”按钮。
抽取按钮：判断表三A1：A20数据个数N不为0，执行随机抽取表二A1：A20的一个数，存放于表三A（N+1）且删除表二中该行；否则执行复制表一A1：A20到表二A1：A20，随机抽取表二A1：A20的一个数存放于表三A1中，并删除表二中抽取数的该行。
重置按钮：清空表二和表三内容。
麻烦老师们了，万分感谢！！！

hhjjpp

纯普通函数（但03要加载宏）：

snpgfiq

万分感谢！！！！{:soso_e179:}
我用的是03，帮忙改一下，我这个，我用的宏不对，老出错

snpgfiq

hhjjpp 发表于 2014-1-21 18:52
纯普通函数（但03要加载宏）：

谢谢啦！！
如何给你献花啊，，，我找半天没找到。。
我想修改重置和抽取的位置，请问怎么修改，还有，我用的是03，在这显示#NAME

snpgfiq

snpgfiq 发表于 2014-1-22 08:23
万分感谢！！！！
我用的是03，帮忙改一下，我这个，我用的宏不对，老出错

我语句都不懂，是照着网上一点一点的凑的，，这种思路是我自己想的，不知道能行不

snpgfiq

感谢二楼老师。{:soso_e163:}
我语句都不懂，是照着网上一点一点的凑的，，这种思路是我自己想的，不知道能行不

snpgfiq

这是抽取，但很多地方有错误，请帮忙改下

Private Sub CommandButton2_Click()
Dim M As Integer, N As Integer, SJS As Integer
  N = ActiveSheet4.Range("A100").End(xlUp).Row ‘N我想作为统计抽取结果的个数，但语句不对
  M = Sheet3.Range("A100").End(xlUp).Row ’M读取抽取后剩余数据，作为下一次抽取的数据源，语句也不对。还有当第一次抽
                                                                        取时M读取的是不是空
If N <> 0 Then
  Do
  SJS = Int((M * Rnd) + 1)
  Sheet4.Cells(N + 1, 1).Value = SJS
  Sheet3.Rows(SJS).Delete
  Loop
Else
  Do
  Range(Sheet2.Cells(1, 1), Sheet2.Cells(100, 1)).Copy Sheet3.Cells(1.1)
  SJS = Int((M * Rnd) + 1)
  Sheet4.Cells(N + 1, 1).Value = SJS
  Sheet3.Rows(SJS).Delete
  Loop
End If
End Sub
其中sheet1为显示基表，2为备选数据，3为抽取后剩余，4为抽取结果存放，如果4没用的话，直接结果到1也行