回答編集履歴
1
コード修正
test
CHANGED
|
@@ -1,4 +1,6 @@
|
|
|
1
1
|
一例です。
|
|
2
|
+
|
|
3
|
+
※7行目から転記するように修正しました。
|
|
2
4
|
|
|
3
5
|
|
|
4
6
|
|
|
@@ -12,6 +14,12 @@
|
|
|
12
14
|
|
|
13
15
|
|
|
14
16
|
|
|
17
|
+
Dim newRng As Range
|
|
18
|
+
|
|
19
|
+
Set newRng = wMerge.Range("A7")
|
|
20
|
+
|
|
21
|
+
|
|
22
|
+
|
|
15
23
|
Dim w As Worksheet
|
|
16
24
|
|
|
17
25
|
For Each w In Worksheets
|
|
@@ -20,15 +28,11 @@
|
|
|
20
28
|
|
|
21
29
|
Dim offsetRow As Long
|
|
22
30
|
|
|
23
|
-
Dim newRng As Range
|
|
24
|
-
|
|
25
|
-
Set newRng = wMerge.Range("a" & Rows.Count).End(xlUp).Offset(offsetRow)
|
|
26
|
-
|
|
27
|
-
|
|
28
|
-
|
|
29
31
|
With w.Cells(1).CurrentRegion
|
|
30
32
|
|
|
31
33
|
.Offset(offsetRow).Copy newRng
|
|
34
|
+
|
|
35
|
+
Set newRng = newRng.Offset(.Rows.Count - offsetRow)
|
|
32
36
|
|
|
33
37
|
End With
|
|
34
38
|
|