excel把数据打乱（excel如何打乱数据）

哈喽,大家好~~~我是小编田甜，关于excel把数据打乱，excel如何打乱数据这个很多人还不知道,那么现在让田甜带着大家一起来看看吧！

现在比方说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列用人的姓名来代替，这样会更直观。

本文分享完毕，希望对大家有所帮助哦。

　　免责声明：本文由用户上传，与本网站立场无关。财经信息仅供读者参考，并不构成投资建议。投资者据此操作，风险自担。 如有侵权请联系删除！