回答編集履歴
2
修正
answer
CHANGED
@@ -7,9 +7,12 @@
|
|
7
7
|
For Each w In Worksheets
|
8
8
|
If w.Name <> k.Name Then
|
9
9
|
w.Rows(1).Copy k.Rows(7)
|
10
|
+
Dim f As Range, t As Range
|
11
|
+
Set f = w.UsedRange.Resize(w.UsedRange.Rows.Count - 1).Offset(1)
|
10
|
-
|
12
|
+
Set t = k.Range("A" & k.Rows.Count).End(xlUp).Offset(1)
|
13
|
+
Debug.Print f.Address(, , , True), t.Address(, , , True)
|
14
|
+
f.Copy t
|
11
15
|
End If
|
12
16
|
Next
|
13
17
|
End Sub
|
14
|
-
|
15
18
|
```
|
1
追記
answer
CHANGED
@@ -1,1 +1,15 @@
|
|
1
|
-
見出しだけ先にコピーしておいて、Sheet1~Sheet3のデータを2行目からコピーする感じでどうですか?
|
1
|
+
見出しだけ先にコピーしておいて、Sheet1~Sheet3のデータを2行目からコピーする感じでどうですか?
|
2
|
+
|
3
|
+
```VBA
|
4
|
+
Sub test()
|
5
|
+
Dim k As Worksheet, w As Worksheet
|
6
|
+
Set k = Worksheets("結合シート")
|
7
|
+
For Each w In Worksheets
|
8
|
+
If w.Name <> k.Name Then
|
9
|
+
w.Rows(1).Copy k.Rows(7)
|
10
|
+
w.UsedRange.Resize(w.UsedRange.Rows.Count - 1).Offset(1).Copy k.Range("A" & k.Rows.Count).End(xlUp).Offset(1)
|
11
|
+
End If
|
12
|
+
Next
|
13
|
+
End Sub
|
14
|
+
|
15
|
+
```
|