EXCEL怎么使每一行都进行无序排列

2025-02-28 15:09:22

推荐回答（5个）

回答1：

找个空表，A2 中输入=RANDBETWEEN(0,1)，然后整体拖动就会出现很多 1 和 0 ，把这些1和0复制到你这个表里然后 ctrl+h 替换掉所有的0 即可实现

不知满不满意

回答2：

用下面VBA代码吧

Sub 随机()
s = 20 '随机次数
x = 25 '共25行
y = 9 '从A列到I列（I列的列标是9）
For i = 2 To x
    For j = 1 To s
        r1 = Int(Rnd() * y + 1)  '随机数从1到y
        r2 = Int(Rnd() * y + 1)  '随机数从1到y
        n = Cells(i, r1): Cells(i, r1) = Cells(i, r2): Cells(i, r2) = n
    Next
Next
End Sub

回答3：

可以加入辅助列，不知道你一共有多少列，你发给我我帮你做吧

回答4：

把问题作为内容（邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件，以免误删）、excel样表文件（请特别注意：要03版的(如果是03以后的，把文件“另存为”一下，类型框可以选择03的），把现状和目标效果表示出来）作为附件发来看下 yqch134@163.com

回答5：

可能要编代码