VBA多人中随机抽取若干名不重复的人_武林长风

个人资料

微博

正文字体大小：大中小

VBA多人中随机抽取若干名不重复的人

(2015-10-15 13:11:09)

标签：

分类： ExcelVBA

VBA多人中随机抽取若干名不重复的人

Sub qcw()

Dim nRow%, arr

rs = [g1]: xb = [I1] '人数，性别

nRow = Range("A65536").End(xlUp).Row

arr = Range("a1:b" & nRow)

Range("c1:c" & nRow).Formula = "=rand()"

If xb = "男" Then

Range("a1:c" & nRow).Sort key1:=[b1], key2:=[c1], order1:=xlAscending

ElseIf xb = "女" Then

Range("a1:c" & nRow).Sort key1:=[b1], key2:=[c1], order1:=xlDescending

Else

Range("a1:c" & nRow).Sort key1:=[c1]

End If

[c:e].ClearContents

Range("d1:e" & rs).Value = Range("a1:b" & rs).Value

Range("a1:b" & nRow) = arr

End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report