回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -1,19 +1,21 @@
|
|
|
1
1
|
一例です。
|
|
2
|
+
※7行目から転記するように修正しました。
|
|
2
3
|
|
|
3
4
|
```vba
|
|
4
5
|
Sub test2()
|
|
5
6
|
Dim wMerge As Worksheet
|
|
6
7
|
Set wMerge = Worksheets("結合シート")
|
|
7
8
|
|
|
9
|
+
Dim newRng As Range
|
|
10
|
+
Set newRng = wMerge.Range("A7")
|
|
11
|
+
|
|
8
12
|
Dim w As Worksheet
|
|
9
13
|
For Each w In Worksheets
|
|
10
14
|
If w.Name <> wMerge.Name Then
|
|
11
15
|
Dim offsetRow As Long
|
|
12
|
-
Dim newRng As Range
|
|
13
|
-
Set newRng = wMerge.Range("a" & Rows.Count).End(xlUp).Offset(offsetRow)
|
|
14
|
-
|
|
15
16
|
With w.Cells(1).CurrentRegion
|
|
16
17
|
.Offset(offsetRow).Copy newRng
|
|
18
|
+
Set newRng = newRng.Offset(.Rows.Count - offsetRow)
|
|
17
19
|
End With
|
|
18
20
|
If offsetRow = 0 Then offsetRow = 1
|
|
19
21
|
End If
|