excel打乱名单顺序排列

Excel教程：如何在电脑办公软件Excel中打乱名单顺序

创新互联专注于庄浪网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供庄浪营销型网站建设，庄浪网站制作、庄浪网页设计、庄浪网站官网定制、小程序设计服务，打造庄浪网络公司原创品牌,更为您提供庄浪网站排名全网营销落地服务。

单元1：准备工作

打开Excel软件并创建一个新的工作表。

在第一行输入名单的标题，姓名”。

在第二行开始输入名单的具体内容。

单元2：使用随机函数打乱名单顺序

在名单下方的空白单元格中输入以下公式：=RAND()

将该公式拖动到与名单内容相同的行数。

选中名单和随机函数生成的列，点击“数据”选项卡中的“排序”按钮。

在弹出的对话框中，选择按照随机函数生成的列进行排序。

点击“确定”按钮，Excel会自动打乱名单顺序。

单元3：使用筛选功能打乱名单顺序

选中名单所在的列。

点击“数据”选项卡中的“筛选”按钮。

在每个名字旁边会出现一个下拉箭头，点击箭头。

在弹出的菜单中，选择“随机排序”。

Excel会重新打乱名单顺序。

单元4：使用宏命令打乱名单顺序

按下“Alt+F11”键，打开VBA编辑器。

在左侧的项目资源管理器中，双击当前工作簿的名称。

在右侧的代码窗口中，输入以下代码：

Sub ShuffleNames()
    Dim rng As Range
    Dim i As Long, j As Long, temp As Variant
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    For i = rng.Rows.Count To 2 Step 1
        j = Int((i 1) * Rnd + 1)
        temp = rng.Cells(i, 1).Value
        rng.Cells(i, 1).Value = rng.Cells(j, 1).Value
        rng.Cells(j, 1).Value = temp
    Next i
End Sub

按下“Ctrl+S”键保存代码。

返回Excel工作表，按下“Alt+F8”键，选择“ShuffleNames”宏，然后点击“运行”。

Excel会重新打乱名单顺序。

本文名称：excel打乱名单顺序排列
文章位置：http://www.shufengxianlan.com/qtweb/news49/487149.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联