【VBAリファレンス｜実務向け】シート名を複数行にして印刷する｜Excel 一般

ExcelVBA

2026.10.27

なぜシート名を複数行にする必要があるのか

実務において、ヘッダーやフッターに「シート名」を自動挿入して印刷するケースは非常に多いです。しかし、シート名が長すぎるとヘッダーの幅に収まらず、他の情報と重なってしまうことがあります。また、管理番号と名称を分けて表示したいという要望もよくあります。今回ご紹介するテクニックを使えば、シート名を「改行」して表示させることで、印刷時のレイアウトをすっきりと整理できます。

基礎知識：Excelの隠し機能「Ctrl + J」

通常、Excelのセル内であれば「Alt + Enter」で改行できますが、実は「シート名」や「ヘッダー・フッター」といった特定の場所では、キーボードの[Ctrl] ＋ [J]という特殊なショートカットを使用します。これは文字コードで「LF（Line Feed：改行）」を直接入力する命令です。これを知っているだけで、帳票作成のプロフェッショナルとしての幅が大きく広がります。

実装手順：シート名を改行する

1. シート見出しをダブルクリック、または右クリックして「名前の変更」を選択します。
2. カーソルを改行したい位置に合わせます。
3. [Ctrl] ＋ [J] を押します。
4. [Enter]キーを押して確定します。
※シート見出し上では1行のままですが、印刷プレビューで確認すると、ヘッダー等の設定項目において正しく複数行として認識されます。

サンプルプログラム：VBAでシート名を一括変更する

手作業で一つずつ変更するのは大変です。VBAを使えば、特定の規則に従って全シート名を一括で改行設定に変換できます。

Sub RenameSheetsWithLineBreak()
    ' シート名を「部署名」と「管理ID」に分割して改行するためのサンプル
    ' 例: 「営業部_001」を「営業部」と「001」に改行します
    
    Dim ws As Worksheet
    Dim originalName As String
    Dim newName As String
    
    ' 画面更新を停止して処理を高速化
    Application.ScreenUpdating = False
    
    For Each ws In ThisWorkbook.Worksheets
        originalName = ws.Name
        
        ' "_"が含まれている場合のみ改行コード(Chr(10))に置換
        If InStr(originalName, "_") > 0 Then
            ' Chr(10)はVBAにおける改行コードです
            newName = Replace(originalName, "_", Chr(10))
            
            ' シート名を変更（エラー回避のためOn Error Resume Nextを併用するのが賢明）
            On Error Resume Next
            ws.Name = newName
            On Error GoTo 0
        End If
    Next ws
    
    Application.ScreenUpdating = True
    MsgBox "シート名の改行処理が完了しました。"
End Sub

応用・注意点：現場での運用テクニック

1. 印刷プレビューで必ず確認
シート名に改行を入れただけでは、ヘッダーやフッターのレイアウトに影響が出ることがあります。「ファイル」→「印刷」から、正しく改行されているか必ずプレビューを確認してください。

2. 文字数制限に注意
シート名の最大文字数は31文字です。改行コードを含めてもこの制限は変わりませんので、長すぎる名称にならないよう注意しましょう。

3. セル内改行との違い
VBAでシート名を操作する際、改行コードは Chr(10) を使用します。これはセル内改行（vbLf）と同じ役割を果たします。手作業の「Ctrl+J」とプログラムの「Chr(10)」は同じ結果をもたらすため、自動化ツールを組む際はぜひこのコードを活用してください。