|
发表于 2017-1-13 01:15
|
显示全部楼层
本楼为最佳答案
本帖最后由 today0427 于 2017-1-13 08:33 编辑
大师是什么鬼?不要乱叫 答案显示在sheet3表中
- Sub today()
- Dim n%, arr, i&, brr(), zls%
- Call qc
- n = Application.InputBox("ÇëêäèëÖ¸¶¨DDêy", "ìáê¾", 40, , , , , 1)
- If n = 0 Then Exit Sub
- arr = Sheet1.Range("a4:x" & Sheet1.[c65536].End(3).Row)
- zls = 5 * Application.Ceiling(UBound(arr) / n, 1)
- ReDim brr(1 To n, 1 To zls)
- co = 1
- For i = 1 To UBound(arr)
- ro = ro + 1
- If ro > n Then ro = 1: co = co + 5
- brr(ro, co) = arr(i, 1): brr(ro, co + 1) = arr(i, 2): brr(ro, co + 2) = arr(i, 3)
- brr(ro, co + 3) = arr(i, 18): brr(ro, co + 4) = arr(i, 19)
- Next
- With Sheet3
- Sheet2.Range("a2:e2").Copy .[a2].Resize(1, zls)
- .[a3].Resize(n, zls) = brr
- .Activate
- End With
- End Sub
- Sub qc()
- Sheet3.UsedRange.ClearContents
- End Sub
复制代码
|
评分
-
查看全部评分
|