【Excel VBA】ワークシートの追加・名前の変更・削除をする方法

皆さんこんにちは、エンジニアのIMMRです。

突然ですが、下記のようなシートを持つ、ブックにシートを追加・名前の変更・削除をしたいと思います。

図１サンプルブック

シート「A1」の右にシート「A2」を追加したい・・・

シート「C0」の左にシート「B1」を追加したい・・・

シート「C0」をシート「B2」に名前の変更したい・・・

シート「C1」を削除したい・・・

等などといろいろあると思います。

こういったシートの新規・名前の変更・削除といった方法を説明します。

１．シートの追加・名前の変更・削除方法

シートの追加・名前の変更・削除を行うには、以下の手順が必要です。

①シート名を指定（どこに作成するのか）

②場所を指定（指定したシートの右か？左か？）

③作業を指定（追加か？削除か？）　

④名前の変更（指定したシートを変更）　

①シート名を指定

下記のようなシートがあったとします。

図２　サンプルシート１

そして、シート「A1」を指定したい場合は２つの方法があります。

シート名を直接記載する方法

その名の通り、直接記載します。

以下のような感じです。

Worksheets("A1")

シートの番号を記載する方法

シートの番号を記載します。シート番号とは、左から何個目なのかを記載します。

図２でいうシート「A1」は３つ目なので３になります。

Worksheets(3)

②場所を指定

指定したシート名の左なのか、右なのか、を指定します。

左の場合

指定したシートの左を指定します。

Before

右の場合

指定したシートの右に指定します。

After

③作業を指定

追加か削除を指定します。

追加の場合

指定したシートの追加をします。

Worksheets.Add

削除の場合

指定したシートの削除をします。

指定したシート名.Delete

ただし、シートを削除する場合、

毎回、削除を実行する時に「削除しますか？」と表示されるので不便です。

その場合、メッセージを抑止することができるのでその方法で行うことをおすすめします。

Application.DisplayAlerts = False
指定したシート名.Delete
Application.DisplayAlerts = True

Application.DisplayAlerts = Falseで確認メッセージを抑止します。

しかし、このままFalseの状態にしておくと

マクロが終了しても確認メッセージが抑止の状態になり、

Excelからさまざまなメッセージが表示されなくなってしまうので

FalseからTrueにして抑止状態をもとにもどすことが必要です。

④名前の変更

名前を変更しますがシートの指定する方法が２つあります。

シートを名前で指定する場合

指定したシートの名前を変更します。

指定したシート名.Name = "変更したい名前"

ActiveSheetを指定する場合

ActiveSheetを使用して、シートを指定して名前を変更します。

新規（Add）で新規作成した直後の場合は、作成したシートがアクティブになっているのでそのまま使用できます。

ActiveSheet.Name = "変更したい名前"

２．シートの追加・名前の変更・削除方法（サンプルプログラム）

今回サンプルで使用するのは図１サンプルブックでも使用したブックのシートです。

これにシートの追加・名前の変更・削除を行っていきます。

図３　サンプルシート

１．シート「C0」の左にシートを追加します。　※ここでは、敢えて名前の変更を省きます。

２．３つ目のシート（「A1」）の右にシートを追加して、名前を「A2」にします。

３．シート「C1」の名前を「D1」にします。

４．シート「SS」を削除します。　確認メッセージは非表示にします。

シートの追加・名前の変更・削除を行うサンプルプログラムです。

Sub test()

    Worksheets.Add Before:=Sheets("C0")　　

    Worksheets.Add After:=Sheets(3)
    ActiveSheet.Name = "A2"

    Worksheets("C1").Name = "D1"

    Application.DisplayAlerts = False
    Worksheets("SS").Delete
    Application.DisplayAlerts = True

End Sub

３．シートの追加・名前の変更・削除方法（サンプルプログラム実行）

プログラム実行後の結果が以下になります。

図４　シート（実行後）

先ほどの実行前の

図３　サンプルシート

・シート「C0」の左に新しくシートが作成されています。　※名前の変更とかを除いた場合、「Sheet1」とかで作成されます。

・シート「A1」の右に「A2」としてシートが追加されています。　※シート「SS」が削除されているので２つ目の右に作成されています。

・シート「C1」からシート名が「D1」になっています。

・シート「SS」が削除されています。

以上により、ワークシートの追加・名前の変更・削除を行うことができました。