1-60个数字，10次（每次抽6个数）随机不重复抽取。

leehom127

现有1-60个数字，每次抽取6个数，每次6个数和下次抽的都不重复，10次抽完后自动提示。请各位大侠帮忙解答。。不胜感激。。。。

zldccmx

      '撰写:老朽
      '网址:http://Club.ExcelHome.net
      '日期:2009-7-30 上午 07:59:56
Sub zldccmx()
'注意：VBE窗口，工具－引用　，添加　MicroSoft Scripting Runtime
    Dim Dic As New Dictionary
    Dim C(1 To 10, 1 To 7)
    Sheets.Add.Name = "1－60随机排列"
    For I = 1 To 10
        For j = 2 To 7
                Do
                xh = "" & Int(Rnd * 60 + 1)
                If Not Dic.Exists(xh) Then C(I, j) = xh: Dic("" & xh) = "": Exit Do
                Loop
        Next
    Next
  For I = 1 To 10: C(I, 1) = Format(I, "第_00_组"): Next
    ActiveSheet.[A1:G10].Value = C
End Sub

zldccmx

      '撰写:老朽
      '网址:http://Club.ExcelHome.net
      '日期:2009-7-30 上午 09:48:55
Sub zldccmx2()    '这是随机排列名单
'注意：VBE窗口，工具－引用　，添加　MicroSoft Scripting Runtime
    Dim dic As New Dictionary, 名单, i%, J%, Xm
    Dim C(1 To 10, 1 To 7)
    '随机生成名单，如果你已经有名单，则不需要这一步
    For i = 1 To 60    '名单生成中,如果你已经有名单，则将这一段注释
        Do     '名单生成中,如果你已经有名单，则将这一段注释
            Xm = 随机生成汉字 & 随机生成汉字 & 随机生成汉字    '名单生成中,如果你已经有名单，则将这一段注释
            If Not dic.Exists(Xm) Then dic(Xm) = "": Exit Do     '名单生成中,如果你已经有名单，则将这一段注释
        Loop     '名单生成中,如果你已经有名单，则将这一段注释
    Next     '名单生成中,如果你已经有名单，则将这一段注释
    名单 = dic.Keys    '名单生成中,如果你已经有名单，则将这一段注释
    dic.RemoveAll    '名单生成中,如果你已经有名单，则将这一段注释
    '名单生成结束
    Sheets.Add.Name = "名单随机排列"
    For i = 1 To 10
        For J = 2 To 7
            Do
                Xm = Int(Rnd * 60)
                If Not dic.Exists("" & Xm) Then C(i, J) = 名单(Xm): dic("" & Xm) = "": Exit Do
            Loop
        Next
    Next
    For i = 1 To 10: C(i, 1) = Format(i, "第_00_组"): Next
    ActiveSheet.[A1:G10].Value = C
End Sub
      '撰写:老朽
      '网址:http://Club.ExcelHome.net
      '日期:2009-7-30 上午 09:48:55
Public Function 随机生成汉字() As String
    On Error Resume Next
    Dim TmpRes As String
    Dim TmpRnd As Integer
    Randomize
    If Rnd() < 0.6 Then TmpRes = "&HB" Else TmpRes = "&HC"
    Randomize
    TmpRes = TmpRes & Hex(Rnd(1) * 15)
    Randomize
    TmpRnd = CInt (Rnd(1) * 7)
    Select Case TmpRnd
    Case 0, 1
        TmpRes = TmpRes & "A"
    Case 2
        TmpRes = TmpRes & "B"
    Case 3
        TmpRes = TmpRes & "C"
    Case 4
        TmpRes = TmpRes & "D"
    Case 5
        TmpRes = TmpRes & "E"
    Case Else
        TmpRes = TmpRes & "F"
    End Select
    Randomize
    TmpRes = TmpRes & Hex(Rnd(1) * 15)
    随机生成汉字 = Chr(TmpRes)
End Function