作者:乔山办公网日期:
返回目录:excel表格制作
在原数据区域右边加一个辅助列,输入公式:
=RAND()
选中包含辅助列的数据区域,按辅助列排序。
借助RAND函数实现一列数字乱序排列。
方法步骤:
1、插入一个百辅助列;
2、在辅助列对应原列第一个有数字的度同行单元格中输入=rand() 并下拉填充。回
3、选定原数据列和辅助列,以辅助列为“主要关键字”进行排序,最后答删除辅助列。
*************再次修改知
对于不固定的行数.再次修改之后的.应该可以满足你的要求,每次道要乱序时,运行回一下宏就可以了.是随机的答
**********************************
将下列宏代码,复制到宏代码框中运行.
Sub aaa()
Dim a As Integer
Dim d As Integer
d = 1
Do While d <= 20
a = WorksheetFunction.RandBetween(1, 20)
If Cells(1, a).Value <> "" Then
Range(Cells(1, a), Cells(63356, a)).Select
Selection.Cut
Cells(1, d + 21).Select
ActiveSheet.Paste
d = d + 1
Else
End If
Loop
Range("a:u").Delete
End Sub