想用VBA实现从sheet2的B列随机不重复抽取 i 个数据,出现在sheet1的B列(A1输入一个数是n)
例如sheet2 里B 列有50个数据,想抽取10个到sheet1 里,不重复的,怎么编代码啊
我找到的代码是这样的,它能随机抽,但是会重复
n=range("a1")
Worksheets("sheet2").Activate
Dim a As Range
Set a = Range([B1], Range("B" & Cells.Rows.Count).End(3))
Worksheets("sheet1").Activate
For i = 1 To n
Range("b" & i + 1) = a(Int(Rnd() * a.Count + 1))
Next
求帮助!!!