01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20 |
|
Sub Test()
Dim srcRow As Long, SrcColumn As Long
Dim DstRow As Long, DstColumn As Long
srcRow = 3
SrcColumn = 2 + (Weekoffset - 1) * 7 + DayOffset
DstRow = 5
DstColumn = 3
' Do While True
With ThisWorkbook.Sheets(3)
.Range(.Cells(srcRow, SrcColumn), _
.Cells(srcRow + 2, SrcColumn + DayCount - 1)).Copy
ThisWorkbook.Sheets(Sheets.Count).Cells(DstRow, DstColumn).PasteSpecial _
(XlPasteType.xlPasteValuesAndNumberFormats)
End With
srcRow = srcRow + 3
DstRow = DstRow + 6
' Loop
End Sub
|