VBA シート名一括取得・変更

実務上では、たくさんあるシート名を、一括で取得したり、変更したりすることがあります。今日は、そのやり方を見てみましょう。

シート名の一括取得

Sub test()

’　シート名を一括取得

Dim i As Integer
For i = 1 To Worksheets.Count

’　　　シート名をセルB列に代入

Cells(i, 2).Value = Sheets(i).Name
Next

End Sub

シート名の一括変更

Sub test2()

’　シート名を一括変更

Dim i As Integer
For i = 1 To Worksheets.Count

’　　　シート名をセルA列の文字列へ変更

Sheets(i).Name = Cells(i, 1).Value
Next

End Sub

変更後のシート名をA列に予めいれてあれば、test2のコードで、シート名の一括変更ができます。ただし、ここで注意しなければ行けないのは、A列に入れているシート名の数と実際あったシートの数が合わないとエラーが起きます。

VBAシートの操作