ブック内のすべてのシートに対して、処理をする

2017/05/17


ブック内のすべてのシートに対して、処理をする

Sub 複数シートでの項目名確認()
Dim i, sht
'全シートに対しての処理
For Each sht In Worksheets
sht.Select
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
' シート毎の処理実施開始
'-----------------------------------------------

スポンサーリンク

----- べんりあつめ。-----

 ■ここに、シートに必要な処理を入れる

'-----------------------------------------------
' シート毎の処理終了
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Next sht
End Sub

スポンサーリンク

スマホのみ下に表示