質問編集履歴
1
誤字
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -35,8 +35,8 @@
|
|
|
35
35
|
|
|
36
36
|
End Sub
|
|
37
37
|
```
|
|
38
|
-
次に、処理2に非表示シート(Sheet1）を削除する という処理をいれています。
|
|
38
|
+
次に、処理2に非表示シート(Sheet1）を含め何枚かのシートを削除する という処理をいれています。
|
|
39
|
-
以下では
|
|
39
|
+
以下では対象シート以外を削除する というコードにしています。
|
|
40
40
|
```ここに言語を入力
|
|
41
41
|
'指定したシート以外のシートを削除する(削除しないシートは複数)
|
|
42
42
|
Sub test2()
|
|
@@ -47,8 +47,8 @@
|
|
|
47
47
|
|
|
48
48
|
For Each ws In ActiveWorkbook.Worksheets
|
|
49
49
|
Select Case ws.Name
|
|
50
|
-
'非表示シート「
|
|
50
|
+
'非表示シート「対象シート」は何もしない
|
|
51
|
-
Case "
|
|
51
|
+
Case "対象シート"
|
|
52
52
|
'それ以外は削除する
|
|
53
53
|
Case Else
|
|
54
54
|
ws.Delete
|