質問編集履歴

1

コード文がおかしくなっていたので修正しました。練習の為のものなのでコード内容は上記のものだけです。

2020/12/13 22:49

投稿

dagiri
dagiri

スコア4

test CHANGED
File without changes
test CHANGED
@@ -32,9 +32,9 @@
32
32
 
33
33
  Dim i As Integer
34
34
 
35
- For i = 0 To 3
35
+ For i = 1 To 4
36
36
 
37
- Sheets(i).Name = "Sheet" & i + 1
37
+ Sheets(i).Name = "Sheet" & i
38
38
 
39
39
  Next i
40
40