EXCEL函数实现随机抽取某一列的所有数据。表格已经做好了。只要可以按一次抽取一次。抽取的数字不可重复。

Question

另外把抽取的数据放到另一张表里面。原表格（含所有数据）已经做好了，只管实现随机抽取即可。
我的意思是，使用随机抽取的宏10次，就能在原表里面抽取10条数据，并生成新的表格。还请各位高手帮忙！

Answer 1

Sub RadomChoose()
Dim T%, T2%, CelVl, cell As Range, K%, ARR
ReDim ARR(1 To 10)

retry:
With Sheets("Sheet1")
T = .Range("A65536").End(xlUp).Row
T2 = Int((Rnd * T) + 1)
CelVl = .Cells(T2, "A")
End With

For Each cell In Sheets("Sheet2").Range("A1:A10")
If cell.Value = CelVl Then GoTo retry
If cell.Value = "" Then
K = K + 1
ARR(K) = cell.Row
End If
Next

If K = 0 Then
MsgBox "10 choosed"
Exit Sub
End If

Sheets("Sheet2").Cells((ARR(1)), "A") = CelVl

End Sub

Answer 2

你可以用excel里面的vb编辑器 或者用数据库来实现 数据库的话操作比较简单一点

Answer 3

既然一列的所有数据，怎么还是抽取？