如何用Excel打乱数据

如何用Excel打乱数据

问题补充说明：我们班要换座位，我们班主任要我把全班的座位打乱，比如：A-B C-D E-F打乱后：A-D C-E A-F用Excel2003怎么做？

现在比方说

1、2一桌

3、4一桌

5、6一桌……

我们打来自开一个EXCEL，

在第一列中输入1,3,5,7,9是点城重扩呼犯流今……

在第二列中输入2,4,6,8,10……

然后按ALT+F11，再双击左边（中部）的sheet1(sheet1宗供等有培政)，然后将下面的内容复制上去。

SubRandSit()

Dimi,jAsInteger

Dimstu(1To200)AsString

DimrowsAsInteger

rows=ActiveSheet.UsedRange.Cells.rows.Count

紧想海评握Fori=1Torows

stu(i)=Range("B"&i).Value

Nexti

Fori=1Torows

j=i-Int(-Rnd360问答()*(rows-i))

Range("C"&i).Value=stu(j)

stu(j)=stu(i)

Nexti

EndSub

最后再按F5，现在可以返回EXCEL，此时C列中出现的数字，这些数字代表与排包A桌。相当把B列的人用C列的人来换就可以了。

另外副灯注文事析你也可以把AB列用人的姓名来代替，这样会更直观。