ExcelのブックにワークシートをXNUMXつだけ保存するにはどうすればよいですか？

Excelを使用する場合、ブックからXNUMXつのワークシートだけを新しいExcelファイルとして簡単に保存できます。 しかし、ワークシートをXNUMXつだけ保持し、ブック内の他のワークシートを削除するとどうなるでしょうか。 この記事では、XNUMXつのワークシートのみを新しいExcelファイルとして保存し、現在のワークブックで非アクティブなワークシートを削除する方法を説明します。

移動またはコピーを使用して、XNUMXつのワークシートを新しいExcelファイルとして保存します
VBAを使用して現在のブックにワークシートをXNUMXつだけ保存します
ワンクリックで現在のワークブックにワークシートをXNUMXつだけ保存します

---

移動またはコピーを使用して、XNUMXつのワークシートを新しいExcelファイルとして保存します

世界 移動またはコピー Excel機能のユーティリティを使用すると、特定のワークシートを新しいExcelファイルとして簡単に保存できます。 あなたは次のようにすることができます。

1.シートタブバーのシートタブ（新しいファイルとして保存する必要のあるワークシート）を右クリックし、をクリックします 移動またはコピー.

2。 の中に 移動またはコピー ダイアログボックスで、（新しい本） から 予約する ドロップダウンリストで、 コピーを作成する ボックスをクリックし、 OK ボタン。 スクリーンショットを参照してください：

3.次に、指定したワークシートを新しく作成したワークブックに移動します。このワークブックを手動で保存してください。

---

VBAを使用して現在のブックにワークシートをXNUMXつだけ保存します

すべてのワークシートを削除し、現在のワークブックに特定のワークシートをXNUMXつだけ保存する場合は、次のVBAコードが役立ちます。

1。 押す 他の + F11 同時に開くには アプリケーション用 Microsoft Visual Basic 窓。

2。 の中に アプリケーション用 Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下のVBAコードをコピーしてモジュールウィンドウに貼り付けます。

VBAコード：現在のブック内の特定のシートを除くすべてのシートを削除します

Sub DeleteSheets1()
    Dim xWs As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each xWs In Application.ActiveWorkbook.Worksheets
        If xWs.Name <> "test" Then
            xWs.Delete
        End If
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

注意：コードでは、「test」は、現在のブックにのみ保持する必要のあるワークシート名です。 ワークシート名に変更してください。

3.F5キーを押してコードを実行します。 次に、現在のワークブック内のすべてのワークシートが削除されているが、指定されたものが削除されていることを確認できます。 そして、必要に応じてブックを保存します。

---

ワンクリックで現在のワークブックにワークシートをXNUMXつだけ保存します

世界 非アクティブなシートをすべて削除する の有用性 Kutools for Excel ワンクリックで現在のワークシートを除くすべてのワークシートをすばやく削除できます。

1.現在のブックにのみ保持する必要があるワークシートに移動し、[ クツールズプラス > ワークシート > 非アクティブなシートをすべて削除する。 スクリーンショットを参照してください：

次に、プロンプトダイアログボックスが表示されます。削除する場合は、[ OK ボタン。

その後、すべての非アクティブなワークシートが現在のワークブックからすぐに削除されます。

---

ワークシートをXNUMXつだけ保存する