excel随机抽取可以变化 如何用EXCEL实现随机抽取？

excel表格随机抽取姓名，如果改为8*8的方格要怎样修改这些代码？ Private Declare Sub Sleep Lib\"kernel32\"(ByVal dwMilliseconds As Long)Sub 随机()Dim x As IntegerDim y As Integera=0Randomize '初始化10：x=Rnd()*(9-2)+2 '生成2至8的随机数，代表行数y=Rnd()*(9-2)+2 '生成2至8的随机数，代表列数Range(\"b2：i9\").Interior.ColorIndex=xlNone '去掉填充色Cells(x，y).Interior.ColorIndex=3 '填充为红色DoEvents '释放程序控制权，允许其他事件Sleep(10)'延时msDoEvents '释放程序控制权，允许其他事件If a=1 Then Exit Sub '如果按下“结束”钮则终止程序GoTo 10End SubSub 结束()a=1 '结束标志End SubExcel如何随机抽取部分数据，在Excel中，我们经常需要从给定的数据中随机抽取一部分出来，那遇到这种情况你一般怎么解决呢？今天教大家一种很好用的方法。excel 随机抽出数据及替换的问题！ 首先你的问题中有2个毛病：第一、excel2003中一列的最大行数为65536，不可能一列存在下你的100多万号码；第二要从A列抽出号码，然后又替换到抽出的号码，这是个死循环，有可能刚从C列替换的号码又被抽出！Sub ABC()dim i as integer，J as integer，K as integerfor i=1 to 1000 '假设你要抽出1000个号码1：k=int(rand()*100000)if k>；65536 then goto 1range(\"b\"&i)=range(\"a\"&k)'依次保存抽出的号码range(\"a\"&K)=range(\"c\"&i)'依次从C列抽出号码抽出的位置nextend sub

#随机数