|
本帖最后由 爱疯 于 2016-3-15 10:52 编辑
Sub test()
Dim A, B, dic, i%
A = Sheets(1).Range("a1").CurrentRegion
Set dic = CreateObject("scripting.dictionary")
'1)创建字典
For i = 2 To UBound(A)
If Not dic.exists(A(i, 1)) Then Set dic(A(i, 1)) = CreateObject("scripting.dictionary") '1级字典
If Not dic(A(i, 1)).exists(A(i, 2)) Then dic(A(i, 1))(A(i, 2)) = A(i, 2) '2级字典
Next i
'2)导出班级
Sheets(2).Activate
A = dic.keys
Range("a2").Resize(dic.Count) = Application.Transpose(A)
'3)随机宿舍
For i = 0 To UBound(A)
B = dic(A(i)).keys
A(i) = B(UBound(B) * Rnd)
Next i
Range("b2").Resize(dic.Count) = Application.Transpose(A)
End Sub
也做了,就帖上
|
|