 |
Excel の複数シートを一括で同じ処理をしたい時は、
「For Each」 か 「For」で処理する。
今更かん満載ですが、備忘で。。
For Each の場合
Dim oSheet As Object
For Each oSheet In ThisWorkbook.Worksheets
Debug.Print "For Each で「" & oSheet.Name & "」シートの処理実行"
oSheet.Select
'繰り返したい処理
：
：
：
Next
For の場合
Dim iCnt As Integer
For iCnt = 1 To ThisWorkbook.Worksheets.Count
Debug.Print "For で「" & Sheets(iCnt).Name & "」シートの処理実行"
Sheets(Sheets(iCnt).Name).Select
'繰り返したい処理
：
：
：
Next
