各表汇总取数

djyang

请各位老师帮忙一下，红色单元格根据K1和表1中F5生成2013-1-31根据表2中F5生成2013-2-28；以上绿色单元格根据表1中A13到I36取数；如果只有1-5表则取1-5表数；如果有1-12则取1-12表中a13到I36数。分折表中B栏到J栏中没有空格。

zez

Sub Macro1()
    H = 2
    Sheets(1).Select
    For N = 2 To Sheets.Count
        With Sheets(N)
            If .Range("A13") <> "" Then
                Riqi = DateSerial(2013, .[F5] + 1, 0)
                Ha = 13
                Do
                    Cells(H, 1) = Riqi
                    For I = 2 To 10
                         Cells(H, I) = .Cells(Ha, I - 1).Value
                    Next
                    
                    Ha = Ha + 1
                    H = H + 1
                    If .Cells(Ha, 1) = "" Then Exit Do
                Loop
            End If
        End With
    Next
End Sub

zez

附件。。。。。。。。。。。

djyang

zez 发表于 2014-3-18 08:11
附件。。。。。。。。。。。

谢谢老师，谢谢老师！！！！！！！！！！！！

j605541502

学习，谢谢分享

开开心心熊

学习，谢谢分享

空乌

学习谢谢分享

pyubb

学习，谢谢分享