excel 随机抽取问题,想要把下列的放回再抽取的代码改成不放回抽取

Question

Sub 抽样宏()
With Sheet1
For n = 1 To 10
For i = 1 To 4
k = Int(Rnd() * 8) + 1
Cells(i + 1, 2 + n) = Cells(k + 1, 2)
Next
Next
End With
End Sub

Answer 1

可以在Cells(i + 1, 2 + n) = Cells(k + 1, 2)后面加一句吧

把Cells(k + 1, 2)值赋值给Cells(i + 1, 2 + n) 后把原来的数据清空，或者换到别的地方

下次再随机到K值得时候Cells(i + 1, 2 + n) 就是空的

Answer 2

啥意思，说清楚点，不是很明白。