VBAでシート操作を完全攻略：追加・削除・名前取得から変更まで

「VBAを使用して、シート名の変更や取得をするにはどうしたらいいのだろう．．．．」
そんな疑問を持っていませんか？

・何枚ものシートを効率よく操作したい

・シートの名前を一括で取得して一覧にしたい

・シートの追加・削除をワンクリックでできるようにしたい

その場合は、VBAの「シート操作」を
使用すると解決します！

この記事では、Excel VBAでシートを操作するための基本的な方法を詳しく解説します。

シートをアクティブにする方法や名前の取得、シートの追加・削除まで、さまざまな方法を紹介します。

すべての例は、コピペして実行できるので、ぜひ最後までご覧ください。

【　この記事の概要　】

この記事でできるようになること

この記事を読むことで、以下のことができるようになります。

VBAでシート操作をマスターすると、どのような事ができるようになる？

Excel VBAを使ってシートを操作することで、以下のようなさまざまな作業を効率化できるようになります。

これらのシート操作をマスターすることで、手動で行っていた繰り返し作業を自動化でき、作業効率が大幅に向上します。

VBAのSheetsオブジェクトのメソッドとプロパティ一覧をご紹介

以下の表は、VBAのSheetsオブジェクトで利用できる主なメソッドとプロパティをまとめたものです。

「Add」や「Name」以外にも、操作を効率化するために便利な機能が数多くあります。

「Worksheets」と「Sheets」の宣言の違いについて解説

Excel VBAでシート操作を行う際には、「Worksheets」や「Sheets」の2つのオブジェクトが使われます。

これらは、ワークブック（Excelファイル）内のシートを操作するためにとても便利なオブジェクトです。

一見似ているように見えますが、実は少し違いがあります。

以下に、それぞれの使い方と違いを初心者の方でもわかりやすく解説します。

WorksheetsとSheetsの違いって何？

VBAでシートを操作するとき、「Worksheets」オブジェクトはワークシートだけを対象に操作します。

しかし、「Worksheets」は長くて、毎回記述するのが少し大変ですよね。
そこで、「Sheets」と記述すると省略して書くことができます。

ただし、「Sheets」と「Worksheets」には対象とするシートに違いがあるため、操作の目的に合わせて使い分ける必要があります。

次に、それぞれの使い方をコード例で見ていきましょう。

Worksheetsを使用してシート名を取得する

Worksheetsはワークシートのみを対象に操作する際に使用します。

実際にシート名を取得するコード例を見てみましょう。

コード例: 「Worksheets」を使用してシート名を取得する

Sub ListAllWorksheets()
    Dim i As Long
    
    '// Worksheetsのシート名をすべて取得
    For i = 1 To Worksheets.Count
        Cells(i, 1) = Worksheets(i).Name
    Next i
End Sub

処理結果

このコードを実行すると、セル「A1」にワークシートの名前「Sheet1」「Sheet2」が表示されます。

ここで使っているWorksheetsはワークシートだけを対象にしているため、グラフシート「グラフ3」は含まれません。

Sheetsを使ってすべてのシート名を表示する

Sheetsを使うと、ワークシートだけでなく、グラフシートなどワークブック内のすべてのシートを対象に操作できます。

次のコードでは、「Sheets」を使ってシート名を取得します。

コード例: 「Sheets」を使用してシート名を取得する

Sub ListAllWorksheets_2()
    Dim i As Long
    
    '// Worksheetsのシート名をすべて取得
    For i = 1 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name
    Next i
End Sub

処理結果

このコードを実行すると、セル「A1」にすべてのシート名「Sheet1」「Sheet2」「グラフ3」が表示されます。

Sheetsはワークシートだけでなく、グラフシートも含むすべてのシートを対象にします。

「Worksheets」と「Sheets」の使い分け

操作の目的に応じて使い分けます。

例えば、ワークシートの一覧を取得したい場合はWorksheetsを、すべてのシートを対象に操作したい場合はSheetsを使うと便利です。

注意ポイント：VBAでシート操作を行う際の重要なポイント

VBAでシートの追加、削除、名前変更などの操作を行う際には、いくつかの注意点があります。

特に、エラーの発生を未然に防ぐためのポイントを押さえておくと、安全にVBAを活用できます。

ここでは、シート操作の失敗やトラブルを回避するためのポイントを解説します。

注意ポイント1: シートの存在確認

シートを操作する前に、対象のシートが存在するかどうかを確認することが重要です。

例えば、削除や名前変更を行う際に、指定したシートが存在しない場合、エラーが発生します。
以下のコード例を参考にして、シートの存在を確認してから操作を行うようにしましょう。

Sub RenameSheetSafely()
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = Sheets("OldSheetName")
    On Error GoTo 0
    
    If Not ws Is Nothing Then
        ws.Name = "NewSheetName"
    Else
        MsgBox "指定したシートが存在しません。"
    End If
End Sub

注意ポイント2: シート削除時の警告メッセージ

シートを削除する際、VBAは確認メッセージを表示します。
この確認メッセージを表示しないようにするためには、Application.DisplayAlertsプロパティを使用して警告メッセージを無効化しましょう
しかし、削除後は必ず元に戻すようにすることが必要です。

Sub DeleteSheetSafely()
    Application.DisplayAlerts = False
    Sheets(1).Delete
    Application.DisplayAlerts = True
End Sub

注意ポイント3: シートの追加位置を指定する

Sheets.Addメソッドでシートを追加する際、追加する位置を明確に指定することで、予期せぬ位置にシートが挿入されるのを防ぎます。

例えば、以下のように「Before引数」や「After引数」を使って、追加位置をコントロールしましょう。

⇒ 具体的な例は、「使用例：【 Add 】シートを追加する」を確認する。

Sub AddSheetAfterLast()
    Sheets.Add After:=Sheets(Sheets.Count)
End Sub

注意ポイント4: シート名の一括変更や取得時のエラー回避

シート名を一括で変更する際、既存のシート名と重複しないように注意が必要です。

また、シート名を取得する際にエラーが発生する可能性があるため、エラーハンドリングを組み込むことをおすすめします。

Sub ChangeSheetNames()
    Dim i As Long
    For i = 1 To Sheets.Count
        On Error Resume Next
        Sheets(i).Name = "Sheet" & i
        On Error GoTo 0
    Next i
End Sub

注意ポイント5: インデックス番号の使用に注意

シートのインデックス番号は、シートの並び順に依存します。

シートの順序が変更されると、インデックス番号も変わってしまうため、特定のシートを操作する場合はシート名で指定するほうが確実です。

VBAでシートを操作する使用例をご紹介

ここからは、「シート操作方法」の具体的な使用例を紹介します。

以下に紹介する使用例は、すべてコピペしてすぐに実行できるコードです。
気になる例は、ぜひご覧いただき、実際に実行してみてください。

VBAの基礎から応用までを効率よくしっかり学習したい方には、UdemyのVBA講座もおすすめです。

特に自己学習で進める場合、ビデオや実践例があると理解が進みやすくなります。

【 Udemy 】VBAのオススメ講座

​

【 Activate 】シートを選択する

Activateメソッドは、特定のシートを選択状態にするために使います。

シート名やインデックス番号で指定でき、柔軟なシート操作が可能です。

使用例1: シート名でシートをアクティブにする

VBAで特定のシートをアクティブにするには、Activateメソッドを使います。
シート名を指定することで、シートの順序に関わらず、特定のシートを簡単に選択状態にできます。

コード例

Sub ActivateSheet()
    Sheets("Sheet1").Activate
End Sub

処理結果

このコードを実行すると、「Sheet1」という名前のシートがアクティブになります。
シート名を指定することで、シートの順序が変更されても問題なく目的のシートを選択できるため、この方法は非常にシンプルで実用的です。

コードの動作概要

このコードで使用している機能

• なし

1行ずつコードを解説

使用例2: シートのインデックス番号で、シートをアクティブにする

シートのインデックス番号を指定してシートをアクティブにする方法を紹介します。
これにより、特定のシートを選択状態にすることができます。

コード例

Sub ActivateSheetByIndex()
    Sheets(2).Activate
End Sub

処理結果

このコードを実行すると、2番目のシートをアクティブにします。
シートの順序が変わる場合でも、インデックス番号を使ってシートを指定できるため、特定のシートを選択する際に便利です。

コードの動作概要

このコードで使用している機能

• なし

1行ずつコードを解説

【 Name 】シートの名前を取得する

Nameプロパティは、シートの名前を取得したり変更したりするために使用します。
シート名を確認したり、新しい名前に変更する際に役立ちます。

使用例1: シート名を単体で取得する

シート名を取得するには、Nameプロパティを使用します。
これにより、指定したシートの名前を簡単に取得することができます。

コード例

Sub GetSheetName()
    MsgBox Sheets(1).Name
End Sub

処理結果

このコードを実行すると、1番目のシートの名前がメッセージボックスに表示されます。
特定のシートの名前を確認する作業などに役立ちます。

コードの動作概要

このコードで使用している機能

• MsgBox (メッセージボックス)

1行ずつコードを解説

使用例2: シート名を変更する

特定のシートの名前を変更するには、シートをSheetsオブジェクトで指定し、Nameプロパティを使用します。
シート名でシートを指定することで、順序に関係なく特定のシートの名前を変更できます。

コード例

Sub RenameSheet()
    Sheets("Sheet1").Name = "NewSheetName"
End Sub

処理結果

このコードを実行すると、シート名が「Sheet1」のシートの名前を「NewSheetName」に変更します。
既存のシートの名前を変更したい場合に便利です。

コードの動作概要

このコードで使用している機能

• なし

1行ずつコードを解説

使用例3: 全シートの名前を取得 (For Next文)

すべてのシートの名前を取得するには、繰り返し処理である「For Next文」を使用します。
この方法を使うと、ワークブック内にあるすべてのシートの名前を順に取得し、処理することができます。

コード例

Sub GetAllSheetNames()
    Dim i As Long

    For i = 1 To Sheets.Count
        MsgBox Sheets(i).Name
    Next i
End Sub

処理結果

すべてのシート名を順にメッセージボックスで表示します。
シート数が固定されている場合に便利です。

コードの動作概要

このコードで使用している機能

• For Next (繰り返し処理)
• MsgBox (メッセージボックス)

1行ずつコードを解説

使用例4: 全シートの名前を取得 (For Each文)

繰り返し処理である「For Each文」を使うことで、すべてのシートの名前を取得することができます。
この方法は、シート数が変わる場合にも柔軟に対応でき、シートを1つずつ処理する際に便利です。

コード例

Sub GetAllSheetNamesForEach()
    Dim sh As Worksheet

    For Each sh In Sheets
        MsgBox sh.Name
    Next sh
End Sub

処理結果

このコードを実行すると、ワークブック内のすべてのシート名が順にメッセージボックスで表示されます。
For Each文を使うことで、シート数が変わった場合でも柔軟に対応できます。

コードの動作概要

このコードで使用している機能

• Dim – Set (オブジェクト変数)
• For Each (繰り返し処理)
• MsgBox (メッセージボックス)

1行ずつコードを解説

【 Add 】シートを追加する

Addメソッドは、Excel VBAで新しいシートをワークブックに追加するために使用します。
シートの追加位置を細かく制御するために、BeforeやAfterという引数を使うことができます。

使用例1: シートの先頭に、新しいシートを追加

シートを追加するには、Sheets.Addメソッドを使用します。
追加する位置を指定することで、ワークブック内のどこに新しいシートを挿入するかを決めることができます。

コード例

Sub AddSheetAtBeginning()
    Sheets.Add Before:=Sheets(1)
End Sub

処理結果

新しいシートをワークブックの先頭に追加します。
データの順番を意識して追加したい場合に便利です。

コードの動作概要

このコードで使用している機能

• なし

1行ずつコードを解説

使用例2: シートの最後に、新しいシートを追加

シートをワークブックの最後に追加するには、Sheets.Addメソッドを使用します。
After引数を使うことで、新しいシートを既存のシートの後ろに追加できます。

コード例

Sub AddSheetAtEnd()
    Sheets.Add After:=Sheets(Sheets.Count)
End Sub

処理結果

このコードを実行すると、ワークブックの一番最後に新しいシートが追加されます。
新しいデータを常に最後に追加したい場合に役立ちます。

コードの動作概要

このコードで使用している機能

• なし

1行ずつコードを解説

使用例3: 指定した箇所に、新しいシートを追加

コード例

Sub AddSheetAtSpecificPosition()
    Sheets.Add Before:=Sheets(2)
End Sub

処理結果

:2番目のシートの前に新しいシートを追加します。
シートの配置順を細かく制御したい場合に便利です。

コードの動作概要

このコードで使用している機能

• なし

1行ずつコードを解説

【 Delete 】シートを削除する

Deleteメソッドは、指定したシートをワークブックから削除します。
削除時の確認メッセージを非表示にしたい場合は、Application.DisplayAlertsプロパティを利用して制御します。

使用例1: 先頭にあるシートを削除

シートを削除するには、Deleteメソッドを使用します。
削除時に表示される警告メッセージを非表示にするには、Application.DisplayAlertsプロパティを使用する必要があります。

コード例

Sub DeleteFirstSheet()
    Application.DisplayAlerts = False

    Sheets(1).Delete

    Application.DisplayAlerts = True
End Sub

処理結果

このコードを実行すると、先頭のシートが削除されます。
Application.DisplayAlerts = Falseを使用することで、削除確認のメッセージを非表示にしています。

コードの動作概要

このコードで使用している機能

• なし

1行ずつコードを解説

使用例2: 最後にあるシートを削除

ワークブック内の最後にあるシートを削除するには、Sheets.Deleteメソッドを使用します。
シート数が変動する場合でも、Sheets.Countを使うことで、最後のシートを確実に指定できます。

コード例

Sub DeleteLastSheet()
    Application.DisplayAlerts = False

    Sheets(Sheets.Count).Delete

    Application.DisplayAlerts = True
End Sub

処理結果

一番最後のシートを削除します。
シート数が変動する場合でも、最後のシートを確実に削除できます。

コードの動作概要

このコードで使用している機能

• なし

1行ずつコードを解説

使用例3: 指定した箇所にあるシートを削除

特定の位置にあるシートを削除するには、Sheets.Deleteメソッドを使用します。
削除するシートの位置がわかっている場合に、この方法を使うと簡単に特定のシートを削除できます。

コード例

Sub DeleteSpecificSheet()
    Application.DisplayAlerts = False

    Sheets(2).Delete

    Application.DisplayAlerts = True
End Sub

処理結果

このコードを実行すると、2番目のシートを削除します。
削除するシートの位置がわかっている場合に便利です。

コードの動作概要

このコードで使用している機能

• なし

1行ずつコードを解説

この記事のまとめ

「Sheets」オブジェクトのメソッドとプロパティを活用することで、シートの追加、削除、取得、名前変更といったさまざまな操作が効率的に行えるようになります。

この記事で紹介したコードを活用して、作業の自動化を実現しましょう。

ポイントのおさらい

シート操作をマスターして作業を効率化しよう

この記事で紹介したシート操作の基本をマスターすると、日々のExcel作業が大幅に効率化されます。
例えば、シートの追加や削除をワンクリックで行えたり、シート名を自動で一覧化することでシート管理が楽になったりします。
シートの順番を自在に制御できることで、毎月の報告書作成やデータ集計も簡単になります。

この記事を活用するには

まずは、紹介したコードをコピーして実行し、自分のExcelで動かしてみましょう。

コードを実際に動かすことで、どのようにシートが追加・削除されるか、名前が取得・変更されるかが理解しやすくなります。
次に、必要に応じてコードを少しずつカスタマイズし、自分の業務に合わせて活用してみてください。

この記事が参考になったと思ったら、他のVBA関連の記事もぜひご覧ください。
シート操作を自在に使いこなせるようになれば、Excel作業の効率は劇的に向上します！

あわせて読みたい

サイトマップ VBAOfficeスクリプトワークシート関数 VBA 基本設定 VBAとは？ VBAの始め方 VBAのおすすめ設定 セル操作 RangeとCells CurrentRegion Offset Resize 最終行・最終列の取...