|
发表于 2014-12-14 04:57
|
显示全部楼层
本楼为最佳答案
- Dim t%
- Sub Macro1()
- t = t + 1
- If t <> 1 Then Exit Sub
- Dim arr, brr, i&, j&, k%, s&
- arr = Sheets("4").UsedRange
- ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
- For i = 1 To UBound(arr) Step 110
- For j = i To i + 9
- s = s + 1
- For k = 1 To UBound(arr, 2)
- brr(s, k) = arr(j, k)
- Next
- Next
- Next
- Sheets("4").UsedRange.ClearContents
- Sheets("4").Range("a1").Resize(s, UBound(brr, 2)) = brr
- End Sub
复制代码 |
|