excel随机排序，在A列产生顺序号

Sub SequenceRandom()
'在A列产生顺序号
Randomize Timer
Dim DataPool(65535) As Integer

rowNum = Range("B65535").End(xlUp).Row - 1
'MsgBox rowNum
Sheets("Sheet1").Columns(1).Range("A2:A65535").ClearContents
For i = 1 To rowNum
DataPool(i) = i
Next
LastNum = rowNum
CurrentNum = 0
Do While CurrentNum < rowNum
Random = Int(Rnd() * LastNum) + 1 '随机数的范围

RandomVal = DataPool(Random)
Cells(CurrentNum + 2, 1) = RandomVal

'用过的放后面
DataPool(Random) = DataPool(LastNum)
DataPool(LastNum) = RandomVal

LastNum = LastNum - 1
CurrentNum = CurrentNum + 1
Loop
sort
End Sub

Sub sort()
Columns("A:A").Select
With ActiveSheet.Sort
With .SortFields
.Clear
.Add Key:=Range("A2"), Order:=xlAscending
End With
.Header = xlGuess
.MatchCase = False
.SortMethod = xlPinYin
.Orientation = xlSortColumns
.SetRange Rng:=Range("A2:Z65535")
.Apply
End With

'ActiveWorkbook.Save
End Sub

excel随机排序，在A列产生顺序号相关推荐

5.19 对学生按姓名进行随机排序 [原创Excel教程]
原文:http://coolketang.com/staticOffice/5a97f32bd50eee266a9bbacb.html 1. 本节课将为您演示,如何对当前工作表中的内容,进行快速随机排 ...
Excel如何将整行数据在行间随机排序
一. 1.如下图是某公司演讲比赛出场顺序,现在想要将出场顺序打乱重新排序 2.选中所有员工信息单元格区域即B2:D13 3.点击下图选项(Excel插件,百度即可下载安装,本文不作详细解说) 4.点击 ...
Ofiice 2016 Excel 表中某一列按照另一列的数值进行排序
1. 前言由于项目需要,要对一些表格进行整理,但数据量太大,在对表格进行校对的时候很是令人头疼,因此,通过网上查找了一下资料,知道了Ofiice 2016 Excel 表中有些功能可以简化我们的工作 ...
Excel 2010 SQL应用086 随机排序
目录源数据表解决方案随机排序技巧伪随机数概念源数据表学号姓名 1000980 罗大吴 1002128 罗文 1000881 张汶 1001511 吴小丽 1004831 柳生风 1001 ...
Excel如何将同行数据在行内随机排序
今天跟大家分享一下Excel如何将同行数据在行内随机排序 1.如下图想要将每行数据姓名在行内随机排序即实现随机排班 2.选中E2:G8单元格区域 3.点击下图选项 4.点击[随机重复],[随机排序] ...
Excel如何快速对表格数据进行随机排序
如下图是某班级成绩表,现在想要将表格整行数据随机排序选中表格所有数据单元格区域点击下图选项(Excel工具箱,百度即可了解详细的下载安装方法,本文这里不作详细叙述) 点击[随机重复] 选择[随机排 ...
Excel如何将某单元格区域数据随机排序
如下图是某公司人员名单,现在想要对这些员工进行随机分组.即对单元格区域内数据进行随机排序. 选中B2:E10单元格区域点击下图选项(Excel工具箱,百度它即可了解详细的下载安装方法,本文这 ...
Excel利用随机排序功能安排考生座位
期中考试了,今儿学校老师遇见了这样一个问题,现在想随机安排考生座位,教室一排有5个座位,想着每5名随机安排一下座位,例如下图的前5名学生随机安排在第一排,进行考试 (方方格子插件) 1.先看动图演示吧 ...
超实用的Excel自动排序小技巧，原来这么简单，早点知道就好了！
日常制作表格中,我们总是要给Excel数据进行排列,这样更利于我们预览.大家知道有哪几种比较实用的排序方法吗?如果不知道的话,请跟我一起动动手吧! 第一种:最为实用普遍的方法:升序降序排列步骤:单击 ...

excel随机排序，在A列产生顺序号

excel随机排序，在A列产生顺序号相关推荐

最新文章

热门文章