191问答库 > excel表格A列中有200个不同的手机电话号码，在B1至B10如何建函数随机选取10个不同电话号码。

excel表格A列中有200个不同的手机电话号码，在B1至B10如何建函数随机选取10个不同电话号码。

除=INDIRECT("A"&INT(RAND()*COUNTA(A:A))+1)还有别的函数公式可以解决？

2025-05-19 21:19:50

推荐回答（2个）

回答1：

用宏：
Sub test()
Dim Ph(1 To 200) As String, T As String
For i = 1 To 200
Ph(i) = i
Next
For i = 1 To 200
r = Int(Rnd() * 200) + 1
T = Ph(i)
Ph(i) = Ph(r)
Ph(r) = T
Next
For i = 1 To 10
Range("B" & i) = Range("A" & Ph(i))
Next
End Sub

回答2：

=INDEX(A:A,INT(RAND()*10+1))
这个也可以啊试试看