工作表按名称排序（VBA80集第25讲课后练习题）上交专贴

buguize

学习经验

wf562748385

不懂，想看看大神们做

lin8980428

看看

707808067

先写了这个，但是不知道要用数组怎么搞

Sub 打乱顺序()

Dim x, a, n, temp

a = Sheets.Count

Application.ScreenUpdating = False

For x = 1 To a

n = Int(Rnd() * a + 1)

temp = n

Sheets(x).Move before:=Sheets(temp)

Sheets(n).Move before:=Sheets(x)

Next

Sheets("王6").Select

Application.ScreenUpdating = True

End Sub

lierwang

完全听不懂

zhaohaopeng1

谢谢老师分享！

小败_3

谢谢楼主的无私奉献!!!!!!

yan3li6juan9

jane2017

向大神学习

jane2017

非常感谢分享