将天数报告复制到每周

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

有人能帮我吗？

这是一个例子…

有关天数的信息：

本周总结：

Answer 1

这是一个没有经过testing的代码，但应该给你一个好主意，开始编写你的macros：

 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 

希望这可以帮助。