Excelで複数のシートの印刷範囲を一度にクリアするにはどうすればよいですか？

場合によっては、印刷のためにワークシートに印刷範囲を設定することがありますが、複数のシートに異なる印刷範囲がある場合、Excelで複数のシートすべての印刷範囲を一度にクリアするにはどうすればよいでしょうか？ 一つずつ手動で削除するのは時間がかかります。何か簡単な方法はありますか？

VBAを使用して全ワークブックの印刷範囲をクリアする

ページ設定のコピーを使用して複数のシートの印刷範囲をクリアする

VBAを使用して全ワークブックの印刷範囲をクリアする

以下は、全ワークブックのすべての印刷範囲をクリアできるマクロコードです。

1. Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを開きます。

2. [プロジェクト - VBAProject] ウィンドウで ThisWorkbook をダブルクリックし、以下のVBAコードをコピーして右側の空白スクリプトに貼り付けます。スクリーンショットをご覧ください：

VBA: 全ワークブックの印刷範囲をクリア

Sub ClearPrintArea()
'UpdatebyExtendoffice20171229
    Dim xSheet As Worksheet
    For Each xSheet In Worksheets
        xSheet.PageSetup.PrintArea = ""
    Next
End Sub

3. F5 キーを押してコードを実行すると、ワークブック内のすべての印刷範囲が削除されます。

ページ設定のコピーを使用して複数のシートの印刷範囲をクリアする

Kutools for Excel をお持ちの場合、その「ページ設定のコピー」機能も、複数のシート間で印刷範囲をクリアするのに役立ちます。

1. 例えば、ランダムパスワードのシートを選択し、次にクリックします。 ページ レイアウト > 印刷範囲 > 印刷範囲のクリアスクリーンショットをご覧ください：

2. 次にクリックします。 Kutools Plus > 印刷 > ページ設定のコピー.

3. 次に表示される ページ設定のコピー ダイアログで、
次の コピー先 セクションでは、現在のシート以外のすべてのシートがリストされていますので、印刷範囲をクリアしたいシートにチェックを入れてください；
次に オプション セクションで、 シート リストの下にある 印刷範囲 オプションのみをチェックしてください。スクリーンショットをご覧ください：

4. 「OK」をクリックします。これで選択したシートから印刷範囲が削除されました。

  デモ