回答編集履歴

1

コード追記

2020/10/09 02:55

投稿

hatena19
hatena19

スコア34075

test CHANGED
@@ -5,3 +5,17 @@
5
5
  + Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sheet_name
6
6
 
7
7
  ```
8
+
9
+
10
+
11
+ 上記の修正でいいのですが、追加と名前変更を1行で記述するのは読みづらいので、下記のように分けた方が分かり安いかもしれません。
12
+
13
+
14
+
15
+ ```vba
16
+
17
+ Worksheets.Add After:=Worksheets(Worksheets.Count)
18
+
19
+ ActiveSheet.Name = sheet_name
20
+
21
+ ```