excel vba多表相同区域复制并顺序排列

Question

当前工作簿有N张表 其中表名为数字1到31 的是每天的营业记录， 表名按从小到大代表的是对应一个月的营业数据
现在我只要把每天的AD3-AL50区域有数据生成的行按1-31的顺序提取到营业汇总表的A3开始对应顺序排列，要说明的是AD3-AL50的数据都是函数计算生成并以行出现，例如AD3-AL3为一条完整的记录，每天的数据量不一样，有的只有5行 有的却一行都没有，又或许有的行的某单元格是空格，也一并提取。有一点可以肯定，满足条件的每行的第一个单元格也就是AD单元格一定有数据。
万能的吧友，我已经尽量详细的表述了。
谢谢各位老司机抽空看看帮忙写个代码~！

Answer 1

代码好写，你把代码装备到你的程序里面去我很担心，代码如下：

Sub 汇总每日数据()
    Dim i
    for i=1 to 31
        Sheets("" & i).Range("AD3:AL3").Copy Me.Cells(i+1,1)
    Next i
End Sub

如果不明白代码，不会根据汇总区域位置适当调整，建议【百度云盘】（一个使用百度帐号登录的可以对话和传文件的应用软件）私下传文件，写好后回你。