excel如何打乱数据


excel如何打乱数据

文章插图
【excel如何打乱数据】现在比方说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 = https://www.zibosky.com/shbk/202208/stu(j) stu(j) = stu(i)Next iEnd Sub最后再按F5,现在可以返回EXCEL,此时C列中出现的数字,这些数字代表与A桌 。相当把B列的人用C列的人来换就可以了 。另外你也可以把AB列用人的姓名来代替,这样会更直观 。