素人のVBA備忘録

客先や社内での研修用のVBAのコードを書き留めています。初心者にも分かりやすく書いているつもり?です。参考になれば嬉しいです。

特定の名前のシートを取り出すVBAコード

f:id:gray-to:20210302164440g:plain

特定の名前のシートを取り出すVBAコードはコチラ

Sub 売上から始まるワークシート名の一覧を取り出す()
Dim i As Long
'ダミーのワークシートを一番左に新規挿入
Worksheets.Add before:=Worksheets(1)
For i = 1 To Worksheets.Count
    '売上から始まるシート名ならば
    If Worksheets(i).Name Like "売上*" Then
        'ダミーのワークシートのセルA1からシート名を取り出す
        Cells(i, 1) = Worksheets(i).Name
End If
Next
End Sub

f:id:gray-to:20210302165548p:plain