回答編集履歴
2
説明追記
answer
CHANGED
|
@@ -1,6 +1,7 @@
|
|
|
1
|
-
実際のブックがないと検証は難しいので原因は分かりませんが、
|
|
1
|
+
~~実際のブックがないと検証は難しいので原因は分かりませんが、~~iruyasさんの回答のスペルミスが原因だと思われます。
|
|
2
|
-
下記の点を考慮して書き直してみました。
|
|
3
2
|
|
|
3
|
+
下記の点を考慮して書き直してみました。（今後のコーティング時のご参考にしてください。）
|
|
4
|
+
|
|
4
5
|
- Activeなオブジェクトを対象とすることを前提にしたコードは避ける。
|
|
5
6
|
（読みづらいし、想定したものがアクティブでなかったりとバグの原因になりやすい）
|
|
6
7
|
|
1
コード修正
answer
CHANGED
|
@@ -55,12 +55,13 @@
|
|
|
55
55
|
If i = 0 Then
|
|
56
56
|
|
|
57
57
|
'１回目だけ
|
|
58
|
-
.Range(.Cells(1, 1), EndCell).Copy NewSht.
|
|
58
|
+
.Range(.Cells(1, 1), EndCell).Copy NewSht.Cells(1, 1)
|
|
59
59
|
|
|
60
60
|
Else
|
|
61
61
|
|
|
62
62
|
'2回目以降
|
|
63
|
+
.Range(.Cells(2, 1), EndCell).Copy _
|
|
63
|
-
|
|
64
|
+
Destination:=NewSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
|
|
64
65
|
|
|
65
66
|
End If
|
|
66
67
|
|