用Excel随机点名程序，能否自动定位到被点中的那一项上？

发布网友发布时间：2022-04-21 07:47

共2个回答

热心网友时间：2023-11-07 09:34

Sub PickSomebody()
Dim class As Range
Set class = Range("A2", Range("A2").End(xlDown))
n = class.Rows.Count
' get a random seed first,to get the random number
Randomize
s = (Int(n * Rnd + 1))
MsgBox class(s)
Cells(s + 1, 1).Select
End Sub

热心网友时间：2023-11-07 09:35

新鲜，比我用的好多了！

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com