teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

2

修正

2021/11/10 07:33

投稿

jinoji
jinoji

スコア4592

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
- w.UsedRange.Resize(w.UsedRange.Rows.Count - 1).Offset(1).Copy k.Range("A" & k.Rows.Count).End(xlUp).Offset(1)
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

追記

2021/11/10 07:33

投稿

jinoji
jinoji

スコア4592

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
+ ```