曲线救国，VBA大神发代码攻略O(∩_∩)O~求加精啊

这回用notepad试试
Sub sa()
Range("F:K") = ""
Z = 0
r = 1
f = 1
For i = 1 To
Application.SumProduct(Application.Ceiling(Range("B1:B999"), 5)) +
5
Z = Z + 1
If Z <= Cells(f, 2) Then
Cells(r, 6 + ((Z + 4) Mod 5)) = Cells(f, 1)
End If
If (i Mod 5) = 0 Then
r = r + 1
End If
If Cells(f, 2) <= z And (i Mod 5) = 0
Then
f = f + 1
Z = 0
Do Until Cells(f, 2) * 1 > 0
f = f + 1
Loop
End If
Next
End Sub

以前好像会吃回车，但是现在好像不会吃了？

Sub sa()
Range("F:K") = ""
Z = 0
r = 1
f = 1
For i = 1 To
Application.SumProduct(Application.Ceiling(Range("B1:B999"), 5)) +
5
Z = Z + 1
If Z <= Cells(f, 2) Then
Cells(r, 6 + ((Z + 4) Mod 5)) = Cells(f, 1)
End If
If (i Mod 5) = 0 Then
r = r + 1
End If
If Cells(f, 2) <= z And (i Mod 5) = 0
Then
f = f + 1
Z = 0 Do Until Cells(f, 2) * 1 > 0
f = f + 1
Loop End If Next
End Sub

果然大神，

大神。。。如何将每个小表每日的数据汇总到一个月报表里面啊。。。

解方程组亲，帮帮忙，用excel解