回答編集履歴
2
説明追記
test
CHANGED
|
@@ -1,6 +1,8 @@
|
|
|
1
|
-
実際のブックがないと検証は難しいので原因は分かりませんが、
|
|
1
|
+
~~実際のブックがないと検証は難しいので原因は分かりませんが、~~iruyasさんの回答のスペルミスが原因だと思われます。
|
|
2
2
|
|
|
3
|
+
|
|
4
|
+
|
|
3
|
-
下記の点を考慮して書き直してみました。
|
|
5
|
+
下記の点を考慮して書き直してみました。（今後のコーティング時のご参考にしてください。）
|
|
4
6
|
|
|
5
7
|
|
|
6
8
|
|
1
コード修正
test
CHANGED
|
@@ -112,7 +112,7 @@
|
|
|
112
112
|
|
|
113
113
|
'１回目だけ
|
|
114
114
|
|
|
115
|
-
.Range(.Cells(1, 1), EndCell).Copy NewSht.
|
|
115
|
+
.Range(.Cells(1, 1), EndCell).Copy NewSht.Cells(1, 1)
|
|
116
116
|
|
|
117
117
|
|
|
118
118
|
|
|
@@ -122,7 +122,9 @@
|
|
|
122
122
|
|
|
123
123
|
'2回目以降
|
|
124
124
|
|
|
125
|
+
.Range(.Cells(2, 1), EndCell).Copy _
|
|
126
|
+
|
|
125
|
-
|
|
127
|
+
Destination:=NewSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
|
|
126
128
|
|
|
127
129
|
|
|
128
130
|
|