如何将某一列的顺序随机打乱，让其没有规律

作者：绿色风分类：时间：2022-08-18 浏览：287

楼主 yjzstar	Q:在一个工作表中的某列中，以B列为例，在该列中有若干个非空单元格，而且这些非空值的每个单元格之间不是连续的。现在想对这些非空单元格里的内容随便排序，即打乱原来的顺序说明：如果某单元格原来是空的，新排列后还要是空的，原来是非空单元格，新的排列后也是非空值单元格，只是单元格里的内容改变了而已。而且仅仅是要求B列随便排序，不要影响其它列的内容发生改变。 A:利用VBA中的rnd()函数，外加一个循环语句，便可以轻松的实现以上过程！ Sub ssd() Dim n As Integer, n1 As Integer, m As Integer Dim s As String Application.ScreenUpdating = False m = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To 500 n = Rnd() * m n1 = Rnd() * m If n <> 0 And n1 <> 0 Then If Range("B" & n) <> "" And Range("B" & n1) <> "" Then s = Range("B" & n).Value Range("B" & n) = Range("B" & n1) Range("B" & n1).Value = s End If End If Next Application.ScreenUpdating =true End Sub 如果数据量大，以上过程可以用数组实现，以提高运行速度。另外可以根据自己的需要进行扩展，可以对某一区域进行随机处理！ testtest.zip
2楼 YESS95	不错啊，思路挺巧的，随机取两个单元格，把值对调下
3楼 bluexuemei	的确巧妙,学习!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表