随机筛选A列数据

microyip

1. Sub GetRoundRow()
   
2.     Dim vData As Variant, nRow As Double
   
3.     Dim vFill As Variant, nFill As Double
   
4.     Dim nGetRow As Double, dicData As Object
   
5.    
   
6.     Application.ScreenUpdating = False
   
7.     nGetRow = Val(InputBox("请输入要随选的行数："))
   
8.     With Sheet1
   
9.         .[B:B].ClearContents
   
10.         vData = .[A1].CurrentRegion.Value
    
11.         If nGetRow > 0 Then
    
12.             Set dicData = CreateObject("Scripting.Dictionary")
    
13.             ReDim vFill(1 To nGetRow, 1 To 1)
    
14.             For nRow = 1 To UBound(vData)
    
15.                 dicData(nRow) = vData(nRow, 1)
    
16.             Next
    
17.             Do While nGetRow > 0 And dicData.Count > 0
    
18.                 nRow = Int(Rnd() * dicData.Count)
    
19.                 If nRow = dicData.Count Then nRow = nRow - 1
    
20.                 nFill = nFill + 1
    
21.                 vFill(nFill, 1) = dicData.Items()(nRow)
    
22.                 nRow = dicData.Keys()(nRow)
    
23.                 dicData.Remove nRow
    
24.                 nGetRow = nGetRow - 1
    
25.             Loop
    
26.             If nFill > 0 Then .[B1].Resize(nFill) = vFill
    
27.         End If
    
28.     End With
    
29.     Application.ScreenUpdating = True
    
30. End Sub

复制代码

microyip

附上附件以供参考

denxh

microyip 发表于 2018-7-22 08:34
附上附件以供参考

老师，经测试发现一个问题，如果Ａ列数据不连续（有空格），则后面数据无法参与筛选

dreamer徐

microyip 发表于 2018-7-22 08:34
附上附件以供参考

VBA小白恳请侠圣在每条代码后面添加一下备注，必定不吝鲜花

dreamer徐

microyip 发表于 2018-7-22 08:34
附上附件以供参考

如果A列的A1单元格不参与筛选，应该怎么办？谢谢！

microyip

dreamer徐 发表于 2018-7-30 09:56
如果A列的A1单元格不参与筛选，应该怎么办？谢谢！

1. For nRow = 2 To UBound(vData)

复制代码

microyip

denxh 发表于 2018-7-22 17:58
老师，经测试发现一个问题，如果Ａ列数据不连续（有空格），则后面数据无法参与筛选

1. vData = .[A1].CurrentRegion.Value

复制代码

改为

1. nRow=.Cells(.Rows.Count,1).End(xlUp).Row
   
2. vData = .[A1].Resize(nRow).Value

复制代码

dreamer徐

microyip 发表于 2018-7-30 10:08

有点不对呀，既然我的A1单元格不参与筛选，那么B1也应该给我空出来呀

microyip

dreamer徐 发表于 2018-7-30 11:07
有点不对呀，既然我的A1单元格不参与筛选，那么B1也应该给我空出来呀

请理解好代码，进行对应的修改

dreamer徐

microyip 发表于 2018-7-30 11:19
请理解好代码，进行对应的修改

小白把代码中的1全改成了2不行呀，求大师指明