如何做到排除关键数据后再进行随机抽取

lkxx

从A2开始进行随机抽取A列的数值，显示在B列中，抽取数量由C2决定，但是我想排除一些在A列中包含的数据然后再进行随机抽取，比如“张三”、“王五”这两个人始终不被抽到，需要如何修改一下呢？谢谢。

1. Sub CY()
   
2.     Dim M&, arr, N&, i&, j&
   
3.     Dim D As Object
   
4.     Set D = CreateObject("scripting.dictionary")
   
5.     X = Sheet2.Range("A65536").End(xlUp).Row
   
6.     arr = Sheet2.Range("A2:A" & X)
   
7.     Range("B2:B65536").ClearContents
   
8.     M = Range("C2")
   
9.     N = UBound(arr)
   
10.     If N < M Then MsgBox "数量不符" & N: Exit Sub
    
11.     Do While i < M
    
12.         j = Int(Rnd() * N + 1)
    
13.         If Not D.exists(j) Then
    
14.             i = i + 1
    
15.             D(j) = arr(j, 1)
    
16.         End If
    
17.     Loop
    
18.     Range("B2").Resize(D.Count, 1) = Application.Transpose(D.items)
    
19. End Sub

复制代码

chxw68

建议上传附件方便大家帮你。