将日期报告复制到每周

Question

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

有人可以帮助我吗？

下面是一个例子关于天...

信息：

本周总结：

Answer 1

这里是为不测试代码，但应该给你一个好主意，开始写你的macr o：

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 

希望这会有所帮助。