回答編集履歴

1

追記

2020/10/29 07:08

投稿

kitasue
kitasue

スコア314

test CHANGED
@@ -1,3 +1,25 @@
1
1
  Worksheets("雛形").Copy after:=Worksheets("雛形")
2
2
 
3
3
  でシートを増やしているからずれるのでは。
4
+
5
+
6
+
7
+ busyodaさんの回答とダブってしまったので追記します。
8
+
9
+ 未確認ですが、
10
+
11
+ For i = Worksheets.Count To 1 Step -1
12
+
13
+
14
+
15
+ For i = Worksheets.Count To 2 Step -1
16
+
17
+ に修正して、
18
+
19
+ Worksheets(i)
20
+
21
+
22
+
23
+ Worksheets(Worksheets.Count)
24
+
25
+ に変更しては、いかがでしょうか。