excel吧 关注：282,006贴子：1,557,789
- 13回复贴，共1页
不感兴趣
开通SVIP免广告
你是用字典这个意思吗？把必须踢出去，然后再随机？
Sub suiji()
Dim dic As Object
Dim arr As Variant
Dim brr As Variant
Set dic = CreateObject("scripting.dictionary")
r1 = Range("a1048576").End(xlUp).Row
r2 = Range("b1048576").End(xlUp).Row
arr = Range("a2:a" & r1)
brr = Range("b2:b" & r2)
For i = 1 To UBound(arr, 1)
dic(arr(i, 1)) = ""
Next i
For i = 1 To UBound(brr, 1)
dic.Remove (brr(i, 1))
Next i
Range("c2").Resize(dic.Count, 1) = Application.WorksheetFunction.Transpose(dic.keys)
End Sub
菠萝蜜
Option Explicit
Const NUM As Long = 15
Sub abc()
Dim a, i, m, n, t, d
a = [b2:b6].Value '5题必考，自己修改区域
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(a)
d(a(i, 1)) = 1
Next
a = Range("a2:a" & [a2].End(xlDown).Row).Value
For i = 1 To UBound(a)
If Not d.exists(a(i, 1)) Then m = m + 1: a(m, 1) = a(i, 1)
Next
If m < NUM Then MsgBox "!": Exit Sub
For i = 1 To NUM '随机取非必考的num题目
n = Int(Rnd * (m - i + 1)) + i
t = a(i, 1): a(i, 1) = a(n, 1): a(n, 1) = t
Next
[c2].Resize(NUM) = a
End Sub
