如何把excel里的一列数据随机打乱

要求对不同长度的数据都能行，而不是一个特定长度的数列

2024年11月14日 13:58

有3个网友回答

网友（1）：

假设你原有的3500行数据在A列,从A1:A3500,
按下ALT+F11,插入-模块,复制下列代码,按F5运行.这3500个数据会乱序排在C列.原A列的数据就没有了.如果很重要,请保存

Sub bbb()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = WorksheetFunction.CountA(Range("a:a"))
c = 1
Do While c <= a
b = Int(Rnd * a) + 1
If Cells(b, 1).Value <> "" Then
Cells(b, 1).

网友（2）：

先生成一个随机数组，再对随机数排序，再扩展排序到你要排序的那组数列

网友（3）：

随机打乱排序～