如何用Excel打乱数据

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

现在比方说

1、2一桌

3、4一桌

5、6一桌……

我们打开一个EX带个善多CEL，

在第一列让胶是采统给型班食顺兵中输入1,3,5,7,9……

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

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

S此消聚游左素输致优镇ubRandSit()

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(-Rnd()*(rows-i))

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

stu(情春级控证倒j)=stu(i)

Nexti

EndSub

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

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

标签：Excel,打乱,数据