将日期报告复制到每周

Question

我有问题。 我有两本工作簿。第一个是Workbook A，其中包含有关一个月内的天数的信息。 第二个是每周摘要工作簿，我需要从Workbook A开始每周报告。在那里，我希望有VBA代码，它复制有关工作日的信息，并将每天的范围粘贴到每周摘要工作簿的Sheet1。

有人可以帮助我吗？

这是一个例子......

有关天数的信息：

周总结：

Answer 1

这是一个未经过测试的代码，但是应该为您提供开始编写宏的好主意：

Dim wkBookLog As WorkBook
Dim wkBookWeekly As WorkBook
Dim datestring As String
Dim LastRow As Long
Dim rowCount As Long
Dim CountDays As Integer

Set wkBookLog = Workbooks("Workbook A")
Set wkBookWeekly = Workbooks("Weekly Summary")
rowCount=0

For each s in wkBookLog.Sheets
    datestring = s.Range("C2").Text 
    LastRow = Range("A4").SpecialCells(xlLastCell).Row
    s.Range("A4:A" & Cstr(LastRow)).Copy wsBookWeekly.ActiveSheet.Range("C" & Cstr(4+rowCount))
    s.Range("C2").Copy wsBookWeekly.ActiveSheet.Range("B" & Cstr(4+rowCount) & _
        ":B" & Cstr(4+rowCount+LastRow))
    rowCount=rowCount+LastRow+1
    CountDays=CountDays+1
    If CountDays=7 Then
        CountDays=0
        rowCount=0
        wsBookWeekly.ActiveSheet.Next.Select
    End If

Next s

希望这有帮助。