メインコンテンツへスキップ

Excelで一度に複数の一致を見つけて削除する方法は?

Excel で大量のデータを扱う場合、必要な情報をいつでもすぐに見つけられることが重要です。 その場合は、検索と置換機能が必要になります。これは、アクティブなシートまたはワークブック全体で特定の値または形式を検索して強調表示し、結果に対して必要な操作、たとえば削除または置換を行うのに役立ちます。 ただし、Excel の検索と置換では、一度に XNUMX つの値しか検索できません。 このチュートリアルでは、Excel で複数の異なる値を見つけて一度に削除する簡単な方法を紹介します。


VBA を使用して複数の一致を一度に検索して削除する

選択した範囲または複数のワークシートで複数の異なる値を見つけてすぐに削除できるように、XNUMX つの VBA コードを作成しました。 以下の手順に従って、必要に応じてコードを実行してください。

1. Excel で、 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール. 次に、次の VBA コードのいずれかを モジュール 窓。

VBA コード 1: 選択した範囲内の複数の一致を一度に検索して削除する

Sub FindAndDeleteDifferentValues_Range()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ

xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas

On Error Resume Next
Set xRg = Application.InputBox("Please select the search scope:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub

xBol = False
For Each xARg In xRg.Areas
    Set xFindRg = Nothing
    Set xFindRgs = Nothing
    Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next
If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub

注: スニペットで xArrFinStr = Array("売上", "9", "@") 13行目で、交換する必要があります 「セールス」、「9」、「@」 検索して削除する実際の値を使用する場合は、各値を二重引用符で囲み、カンマで区切ることを忘れないでください。


VBA コード 2: 複数のシートで複数の一致を一度に検索して削除する

Sub FindAndDeleteDifferentValues_WorkSheets()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and delete the values. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
    Set xWSh = xWb.Worksheets(xArr(xI))
    Set xFindRg = Nothing
    xWSh.Activate
    Set xFindRgs = Nothing

    Set xURg = xWSh.UsedRange
    Set xFindRgs = Nothing
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next

If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub
注:
  • スニペットで xArr = Array("シート 1", "シート 2") 15行目で、交換する必要があります 「シート1」、「シート2」 値を見つけて削除するシートの実際の名前を使用します。 各シート名を二重引用符で囲み、カンマで区切ることを忘れないでください。
  • スニペットで xArrFinStr = Array("売上", "9", "@") 16行目で、交換する必要があります 「セールス」、「9」、「@」 検索して削除する実際の値を使用する場合は、各値を二重引用符で囲み、カンマで区切ることを忘れないでください。

3。 押す F5 VBA コードを実行します。 注: あなたが使用している場合 VBAコード1をクリックすると、ダイアログ ボックスがポップアップ表示され、値を検索して削除する範囲を選択するよう求められます。 シート タブをクリックして、シート全体を選択することもできます。

4. 以下に示すようなダイアログ ボックスがポップアップ表示され、指定された一致がコードによって削除されたことが通知されます。 クリック OK ダイアログを閉じます。

5. 指定した値を一括削除しました。


特定のセルの選択機能を使用して、複数の一致を一度に検索して削除します

Kutools for Excelは、 特定のセルを選択 設定した XNUMX つまたは XNUMX つの条件に一致する値を一度に検索する機能を使用して、一度に複数の値をすばやく検索して削除する方法を確認してください。

1。 上の クツール タブの 編集 グループをクリック 選択 > 特定のセルを選択.

2.ポップアップで 特定のセルを選択 ダイアログボックスで、次のようにしてください。
  • この範囲のセルを選択します ボックスで、範囲選択ボタンをクリックします からの範囲を指定します。 値を見つけて削除する場所. 注: シート全体を検索するには、シート タブをクリックします。
  • 選択タイプ セクションで、 セル オプションを選択します。
  • 特定のタイプ セクションで、最大 XNUMX つの条件を設定します。
    • 左側のドロップダウン矢印をクリックして、必要な関係を選択します。 含まれています, 等しいです, 以下, で始まる, etc.
    • 必要に応じて、対応するボックスに値を入力します。
    • XNUMX つの条件の関係を指定します (存在する場合)。 or Or.

3。 クリック Ok 設定した条件を満たすセルを選択します。 見つかって選択されたセルの数を示すダイアログ ボックスが表示されます。

4。 クリック OK. 次に、 DELETE キーを押すと、選択した値が一度に削除されます。

注: 使用するには 特定のセルを選択 機能を使用するには、コンピュータにKutools for Excelをインストールする必要があります. Kutoolsがインストールされていない場合は、 ダウンロードしてインストールするには、ここをクリックしてください. プロフェッショナルな Excel アドインは、制限なしの 30 日間の無料試用版を提供します。


Excel で複数の一致を一度に検索して削除する


関連記事

Excelで重複を検索、強調表示、フィルタリング、カウント、削除

Excelでは、データを手動で記録したり、他のソースからデータをコピーしたりする場合、またはその他の理由で、データの重複が何度も発生します。 場合によっては、複製が必要で便利です。 ただし、値が重複していると、エラーや誤解が生じる場合があります。 ここでは、Excelで数式、条件付き書式ルール、サードパーティのアドインなどによって重複をすばやく識別、強調表示、フィルタリング、カウント、削除する方法を紹介します。

ExcelでXNUMXつの列を比較して一致を削除する方法は?

いくつかの重複を含むXNUMXつの列/リストがある場合、それらを比較して一致を見つけ、それらを削除したいのですが、どうすればすばやく解決できますか? この記事では、Excelでそれを処理するのに役立つさまざまな方法を紹介します。

Excelで選択範囲以外をすべて削除する方法は?

Excelでは、選択した範囲をすばやく直接削除できますが、選択した範囲以外の他のセルの内容を削除しようとしたことがありますか? この記事では、Excelでこのタスクをすばやく簡単に解決するための秘訣をいくつか紹介します。

セル範囲内のすべての画像を削除する方法は?

ワークシートに複数の画像が入力されている場合、指定した範囲でそれらの一部を削除したいのですが、どのようにすばやく処理しますか?

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations