如何用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)，然后将下面的内容复制上去。

SubRa360问答ndSit()

Dimi,jAsInteger

Dimstu(1To200)AsString

Dim件待rowsAsInteger

rows=ActiveSheet.UsedRange.Cells.rows.Coun万片新矿菜终轻知和t

Fori=1Torows

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

Nexti

Fori=1Torows

j=i-Int(-R球屋或味植散北免续重修nd()*(rows-i))

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

stu(j)=stu(i)

Nexti

EndSub

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

另外你也可以把AB始岁植新细决列用人的姓名来代替，这样会更直观。