第2个回答 2013-04-11
假设你原有的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).
第3个回答 2013-04-11
假如你数据在a列 你让对应的b列公式为 =RAND() 再拖出3500行 这样b列就有3500个不同的随机数了
再对b进行排序 再选择扩展排列 你的a列数据就乱了 当然b列数据会重新计算也会乱,不用理他,再把b列删了就行了