|
小玲玲 发表于 2016-3-22 23:17
老师啊,我就是菜菜一个,我把sheet1.Activate加在红色代码后,试了一下,运行不了.
麻烦老师帮帮我啊, ...
Sub test()
Application.ScreenUpdating = False
Sheet1.UsedRange.ClearContents
Dim i&, s&, j&, r&, arr, k
For s = 1 To 49
arr = Range("A1").CurrentRegion
For i = 1 To UBound(arr, 2)
For j = 1 To UBound(arr)
r = Int(Rnd() * UBound(arr) + 1)
T = arr(j, i)
arr(j, i) = arr(r, i)
arr(r, i) = T
Next
Next
Sheet2.Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr
Sheet1.Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr
Sheet1.Copy
For k = 1 To 2
Sheets.Add After:=Sheets(Sheets.Count)
Next
ActiveWorkbook.Sheets(1).Activate
ActiveWorkbook.Close True, ThisWorkbook.Path & "\结果\" & s & ".xlsx"
Next
Application.ScreenUpdating = True
MsgBox "重排完成!"
End Sub
|
|