【VBA】非表示シートを完全一致で置換する方法

日々の業務では、大量のデータを扱うため、効率的な作業が求められます。特に、特定の非表示シートを別の名前に一括変更したい場合、手作業で行うと時間がかかります。この記事では、VBAを使用して非表示シートを完全一致で置換する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub ReplaceHiddenSheet()
    Dim ws As Worksheet, targetName As String, replacementName As String
    Application.ScreenUpdating = False '画面更新停止
    Set ws = ThisWorkbook.Sheets("シート名")
    targetName = "置換前の非表示シート名"
    replacementName = "新しいシート名"
    For Each ws In ThisWorkbook.Worksheets
        If ws.Visible = xlSheetHidden And ws.Name = targetName Then
            ws.Name = replacementName '完全一致で置換
        End If
    Next ws
    Application.ScreenUpdating = True '画面更新再開
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。