Sub test()
Dim A, i%
With Sheets(2)
.Range("a:b").ClearContents
.Range("a1:b1").Value = Sheets(1).Range("a1:b1").Value
A = Sheets(1).Range("a2:b" & Sheets(1).Range("a65536").End(xlUp).Row)
For i = 1 To 6
.Range("a65536").End(xlUp).Offset(1, 0).Resize(UBound(A), UBound(A, 2)) = A
Next i
.Range("a1").CurrentRegion.Sort .[a1], xlAscending, , , , , , xlYes
End With
End Sub
Sub test()
Dim r As Long
Application.ScreenUpdating = False
r = Sheets(1).Range("a1").Range("a65536").End(xlUp).Row
With Sheets(2)
.Range("a:b").ClearContents
Sheets(1).Range("a1").CurrentRegion.Copy .Range("a1")
.Range("A2:B" & r).AutoFill Destination:=.Range("A2:B" & (r - 1) * 6 + 1)
.Range("a1").CurrentRegion.Sort .[a1], xlAscending, , , , , , xlYes
End With
End Sub 重复6次d.rar(18.21 KB, 下载次数: 1)