回答編集履歴
1
インデックス値の修正
test
CHANGED
@@ -50,7 +50,7 @@
|
|
50
50
|
|
51
51
|
wcnt = Worksheets.Count 'ワークシート数
|
52
52
|
|
53
|
-
i =
|
53
|
+
i = 7 '処理を行うシートのインデックス'
|
54
54
|
|
55
55
|
Do While i <= wcnt
|
56
56
|
|
@@ -62,7 +62,7 @@
|
|
62
62
|
|
63
63
|
ActiveSheet.Delete
|
64
64
|
|
65
|
-
wcnt = wcnt - 1 '削除した場合は
|
65
|
+
wcnt = wcnt - 1 '削除した場合は上限ワークシート数を減らしておくこと
|
66
66
|
|
67
67
|
End If
|
68
68
|
|