你好!根据楼主的意思,将所有表格打乱,这个可以使用VBA程序处理。
(一)VBA程序代码如下:
Sub Sheet_M()
Dim i1, i2, i3
On Error Resume Next '忽略运行过程中可能出现的错误
For i1 = 1 To 100 '执行100次循环
i2 = Int(Rnd() * 5 + 1) '生成1-5的随机正整数
Sheets(i2).Move Before:=Sheets(i2 + 2) '移动工作表
Next
End Sub
(二)程序运行前后的结果如下: