回答編集履歴
1
誤字
test
CHANGED
|
@@ -12,14 +12,14 @@
|
|
|
12
12
|
Dim sourceRange As Range
|
|
13
13
|
Dim targetRange As Range
|
|
14
14
|
|
|
15
|
-
sourceWsN = Array("sheet1","sheet2","sheet3") '前回の省きたいシート名
|
|
15
|
+
sourceWsN = Array("sheet1","sheet2","sheet3") '前回の省きたいシート名と被ってしまいますが、今回は抽出対象のシート名として入れてます
|
|
16
16
|
Set targetWs = ThisWorkbook.Worksheets("まとめ")
|
|
17
17
|
|
|
18
18
|
For Each sheetName In sourceWsN
|
|
19
19
|
Set sourceWs = ThisWorkbook.Sheets(sheetsName)
|
|
20
20
|
|
|
21
21
|
lRow = sourceWs.Cells(sourceWs.Rows.count, 6).End(xlUp).Row
|
|
22
|
-
Star
|
|
22
|
+
Start_Day = targetWs.Cells(1, 17)
|
|
23
23
|
Set sourceRange = sourceWs.Range("A2:M" & lRow)
|
|
24
24
|
Set targetRange = targetWs.Cells(targetWs.Rows.Count, 1).End(xlUp).Offset(1)
|
|
25
25
|
|