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列用人的姓名来代替,这样会更直观。
本文分享完毕,希望对大家有所帮助哦。
免责声明:本文为转载,非本网原创内容,不代表本网观点。其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。