【エクセルマクロ】特定シートより右側を全て削除:自動化で作業効率アップ

ExcelVBA-特定シートの右側を全て削除-アイキャッチ エクセルマクロで効率化する

エクセルマクロで、特定シートより右側にあるシートを全て削除するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひ、お試しください。

特定シートより右側を全て削除

以下のExcelVBAを実行すると、特定シート以降をすべて削除します。


Sub 特定シートの右側を全削除()

Dim WS As Worksheet
Dim Target As String
Dim Chk As Long

    'このシートより右にあるシートが削除対象
    Target = "Sheet3"
    
    Chk = 0

    'シートをループ
    For Each WS In Worksheets
        
        '「Target」シートだったらフラグ付け
        If WS.Name = Target Then
            Chk = 1
    
        Else
        
            If Chk = 1 Then
                'シート削除
                Application.DisplayAlerts = False
                    WS.Delete
                Application.DisplayAlerts = True
            End If
        End If
        
    Next WS

    'ファイル保存等の処理を追加

End Sub

 

マクロ実行後

[Target = “Sheet3”] にて指定したシートより、

右に存在するシートを一括削除します。

[Target] にて指定したシートは削除しません。


 
 

この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】ワークシート処理を自動化する:超便利29選
...

 

「Excel自動化[最強]時短仕事術」
自動化の基礎と時短に役立つテクニック解説書
毎日の定型業務を手際良く行え、大幅な業務効率化を実現!