现在比方说1、2一桌3、4一桌5、6一桌……我们打开一个EXCEL，在第一列中输入1,3,5,7,9……在第二列中输入2,4,6,8,10……然后按ALT+F11，再双击左边（中部）的sheet1(sheet1)，然后将下面的内容复制上去。Sub RandSit()Dim i, j As IntegerDim stu(1 To 200) As StringDim rows As Integerrows = ActiveSheet.UsedRange.Cells.rows.CountFor i = 1 To rows stu(i) = Range("B" & i).ValueNext iFor i = 1 To rows j = i - Int(-Rnd() * (rows - i)) Range("C" & i).Value = stu(j) stu(j) = stu(i)Next iEnd Sub最后再按F5，现在可以返回EXCEL，此时C列中出现的数字，这些数字代表与A桌。相当把B列的人用C列的人来换就可以了。另外你也可以把AB列用人的姓名来代替，这样会更直观。