Excelで選択範囲以外をすべて削除するにはどうすればよいですか?
Excelでは、選択した範囲を迅速かつ直接的に削除できますが、選択範囲以外のセルの内容を削除しようとしたことはありますか?この記事では、Excelでこのタスクを簡単に解決するためのいくつかの方法をご紹介します。
Kutools for Excelの「範囲ヘルパー」を使用して選択範囲以外をすべて削除する
Kutools for Excelの「範囲のコピー」を使用して選択範囲以外をすべて削除する
VBAコードを使用して選択範囲以外をすべて削除する
一度に選択されていないすべてのセルの値を削除する直接的な方法はありませんが、次のVBAコードが役立つかもしれません。以下の手順を行ってください:
1. 残したいセルを選択するためにCtrlキーを押しながら選択してください。
2. Alt + F11キーを同時に押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。
3. 「Microsoft Visual Basic for Applications」ウィンドウダイアログボックスで、「挿入」>「モジュール」をクリックし、以下のVBAコードをモジュールウィンドウにコピーして貼り付けます。
VBAコード: 選択範囲以外のすべてのセルの値を削除する
Sub ClearAllExceptSelection()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the ranges want to keep", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In ActiveSheet.UsedRange
If Intersect(xCell, xRg) Is Nothing Then
xCell.Clear
End If
Next
Application.ScreenUpdating = xUpdate
End Sub
4. 次にF5キーを押してこのコードを実行すると、残したいセル範囲を選択するように促すダイアログボックスが表示されます。ステップ1ですでに範囲を選択している場合は「OK」をクリックしてください。そうでない場合は、プロンプトボックス内で目的のセルを選択し、複数の範囲をカンマで区切って入力してから「OK」をクリックしてください。スクリーンショットをご覧ください:
5. 「OK」をクリックすると、選択範囲以外のすべてのセルの値が削除され、選択範囲だけが残ります。スクリーンショットをご覧ください:
Kutools for Excelの「範囲ヘルパー」を使用して選択範囲以外をすべて削除する
Kutools for Excelをインストール済みの場合、「範囲ヘルパー」ユーティリティの「補集合」機能を使用して選択範囲を反転させ、その後反転された選択範囲を一括で削除することができます。
Kutools for Excelをインストール後、以下の手順を行ってください:
1. 残したいセル範囲を選択します。
2. 次に「Kutools」>「選択」>「範囲ヘルパー」をクリックします。スクリーンショットをご覧ください:
3. 「範囲ヘルパー」ダイアログボックスで「補集合」にチェックを入れます。スクリーンショットをご覧ください:
4. そして、反転したい範囲をドラッグして選択します。マウスを離すと、選択されていたセルは選択解除され、選択されていなかったセルが一括で選択されます。スクリーンショットをご覧ください:
5. ダイアログボックスを閉じ、Deleteキーを押して選択範囲を一括で削除します。これで必要なセルのみが残ります。スクリーンショットをご覧ください:
Kutools for Excel - 必要なツールを300以上搭載し、Excelの機能を大幅に強化します。永久に無料で利用できるAI機能もお楽しみください!今すぐ入手
Kutools for Excelの「範囲ヘルパー」を使用して選択範囲以外をすべて削除する
もう一つのユーティリティであるKutools for Excelの「範囲のコピー」でもこの作業を行うことができます。選択範囲を新しいワークシートにコピーしてから古いワークシートを削除するだけです。
Kutools for Excelをインストール後、以下の手順を行ってください:
1. 残したいセル範囲を選択するためにCtrlキーを押しながら選択します。
2. 次に「 Kutools」>「範囲のコピー」をクリックします。スクリーンショットをご覧ください:
3. 「複数の範囲のコピー」ダイアログボックスで、「特殊貼り付け」の下にある「すべて」オプションにチェックを入れ、必要であれば「行の高さを含める」と「列の幅を含める」にもチェックを入れます。スクリーンショットをご覧ください:
4. 「OK」ボタンをクリックすると、別のプロンプトボックスが表示され、コピーしたセルを配置するセルを選択するよう促されます。新しいワークシート内のセルを選択してください。スクリーンショットをご覧ください:
5. そして「OK」をクリックすると、選択範囲のみが新しいワークシートに貼り付けられ、今度は必要に応じて元のワークシートを削除できます。
Kutools for Excel - 必要なツールを300以上搭載し、Excelの機能を大幅に強化します。永久に無料で利用できるAI機能もお楽しみください!今すぐ入手
デモ: Kutools for Excelを使用して選択範囲以外をすべて削除する
最高のオフィス生産性ツール
🤖 | Kutools AI アシスタント: データ分析を革命化する: インテリジェント実行 | コード生成 | カスタム数式の作成 | データを分析しグラフを生成 | 拡張機能を呼び出す… |
人気の機能: 重複を見つけてハイライトまたはマーキング | 空白行を削除 | データを失わずに列またはセルを統合 | 丸める ... | |
スーパーLOOKUP: 複数条件のVLookup | 複数値のVLookup | 複数シートの検索 | ファジーマッチ .... | |
高度なドロップダウンリスト: ドロップダウンリストを迅速に作成 | 依存ドロップダウンリスト | マルチセレクトドロップダウンリスト .... | |
列管理: 特定の数の列を追加 | 列を移動 | 非表示列の可視ステータスを切り替え | 範囲と列を比較 ... | |
注目の機能: グリッドフォーカス | デザインビュー | 強化された数式バー | ワークブック & ワークシート管理 | オートテキスト ライブラリ (Auto Text) | 日付ピッカー | データの統合 | セルの暗号化/復号化 | リストで電子メールを送信 | スーパーフィルター | 特殊フィルタ (太字/斜体/取り消し線をフィルタリング...) ... | |
トップ15のツールセット: 12 のテキストツール (テキストの追加, 特定の文字を削除, ...) | 50以上 のグラフ の種類 (ガントチャート, ...) | 40以上の実用的な 数式 (誕生日に基づいて年齢を計算する, ...) | 19 の挿入ツール (QRコードの挿入, パスから画像を挿入, ...) | 12 の変換ツール (単語に変換する, 通貨変換, ...) | 7 の統合 & セルの分割ツール (高度な行のマージ, セルの分割, ...) | ...さらに多く |
Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、300以上の高度な機能を提供し、生産性を向上させ、保存時間を節約します。 最も必要な機能を入手するにはここをクリック...
Office TabはOfficeにタブインターフェイスをもたらし、作業を非常に簡単にします
- Word、Excel、PowerPoint、Publisher、Access、Visio、Projectでタブ付きの編集と読み取りを有効にします。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を50%向上させ、毎日数百回のマウスクリックを減らします!