哈嘍,大家好~~~我是小編田甜，關(guān)于excel把數(shù)據(jù)打亂，excel如何打亂數(shù)據(jù)這個很多人還不知道,那么現(xiàn)在讓田甜帶著大家一起來看看吧！

現(xiàn)在比方說2一桌3、4一桌5、6一桌……我們打開一個EXCEL，在第一列中輸入1,3,5,7,9……在第二列中輸入2,4,6,8,10……然后按ALT+F11，再雙擊左邊（中部）的sheet1(sheet1)，然后將下面的內(nèi)容復(fù)制上去。

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，現(xiàn)在可以返回EXCEL，此時C列中出現(xiàn)的數(shù)字，這些數(shù)字代表與A桌。

相當(dāng)把B列的人用C列的人來換就可以了。

另外你也可以把AB列用人的姓名來代替，這樣會更直觀。

本文分享完畢，希望對大家有所幫助哦。