材料/工具:Excel2010
1、打开Excel2010表格,将邮箱地址列表复制到excel表中
2、在B1单元格输入=rand()
3、将该函数复制到最后一行
4、然后点击升序排列或降序排列按钮
5、得到如下结果,如果不满意结果,可以多点几次升序排列或降序排列按钮
且不管它是行是列,原理都一样,需要增加一辅助行或列,里面用随机函数 Rand()取值,然后按这个行或列排序,就行了。
=======
Sub bbb()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = WorksheetFunctionCountA(Range("a1:a32"))
c = 1
Do While c <= a
b = Int(Rnd a) + 1
If Cells(b, 1)Value <> "" Then
Cells(b, 1)Select
SelectionCopy '此处改一下,原是剪切,改为复制。
Cells(c, 3)Select
ActiveSheetPaste
c = c + 1
Else
End If
Loop
End Sub这个用VBA解决应该比较好。不过常规 *** 作也能实现,只是显的复杂一些。
先在每一列前(或后)插入一列,选中这些列(包括插入的列),编辑-定位-定位条件-空值,输入=rand(),Ctrl+Enter,然后按相邻的两列两列进行排序,即选择两列进行排序,再选择两列进行排序,关键字选rand()公式所在列。直至排序完毕。
最后再将这些公式所在列选中,一并删除。借助RAND函数实现一列数字乱序排列。方法步骤: 1、插入一个辅助列; 2、在辅助列对应原列第一个有数字的同行单元格中输入=rand() 并下拉填充。 3、选定原数据列和辅助列,以辅助列为“主要关键字”进行排序,最后删除辅助列。在类别中选择:查找与引用——选择:MATCH——点击确定。
Excel怎样让两列姓名保持一致,今天和大家分享一下在EXCEL中怎样使用函数来实现这一目标。
1、首先在员工基本信息表有员工的姓名——员工业绩中的姓名排序是乱的,要按基本信息表的姓名一致。
2、点击员工业绩表——点击C1单元格——输入辅助列。
3、点击选择C2单元格——公式——插入函数。
4、在类别中选择:查找与引用——选择:MATCH——点击确定。
5、excel两列乱序姓名一一对应,就设置完成了。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)