回答編集履歴
1
コード追記
answer
CHANGED
|
@@ -1,7 +1,9 @@
|
|
|
1
|
-
最初の
|
|
1
|
+
最初のFor Each のコードのIf文の部分を下記のように修正すればいいでしょう。
|
|
2
2
|
Indexで何番目のシートか分かります。
|
|
3
3
|
|
|
4
4
|
```vba
|
|
5
|
+
'前略
|
|
6
|
+
|
|
5
7
|
'すべてのシートで処理
|
|
6
8
|
Dim w As Worksheet
|
|
7
9
|
For Each w In Worksheets
|
|
@@ -9,5 +11,22 @@
|
|
|
9
11
|
'ただし、1番目のシートとシート名が「A」を除く
|
|
10
12
|
If w.Index = 1 Or w.Name <> "A" Then
|
|
11
13
|
|
|
12
|
-
|
|
14
|
+
'後略
|
|
15
|
+
```
|
|
16
|
+
|
|
17
|
+
後者のコードを修正するなら、下記で。
|
|
18
|
+
|
|
19
|
+
```vba
|
|
20
|
+
'前略
|
|
21
|
+
|
|
22
|
+
'繰り返し処理
|
|
23
|
+
For i = 2 To Worksheets.Count
|
|
24
|
+
|
|
25
|
+
' Worksheets(i).Select 不要
|
|
26
|
+
Set w = Worksheets(i)
|
|
27
|
+
|
|
28
|
+
'ただし、シート名が「A」を除く
|
|
29
|
+
If w.Name <> "A" Then
|
|
30
|
+
|
|
31
|
+
'後略
|
|
13
32
|
```
|