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

Excelの条件に基づいてセルの内容をクリアする方法は?

セルに特定の値が含まれている場合にセルの内容をクリアする、別の列に空白のセルがある場合にセルの内容をクリアする、特定の背景色でセルの内容をクリアするなど、Excel の条件に基づいてセルの内容をクリアする必要がある場合があります。この記事では、これらのタスクをすばやく簡単に解決するためのいくつかのトリックを紹介します。

VBAコードを使用したセル値に基づいてセルの内容をクリアする

値がVBAコードで特定の値より大きいか小さい場合、行全体をクリアします

便利な機能を使用して、セルの値に基づいてセルまたは行の内容をクリアする

別のセルが VBA コードで空白の場合、行全体をクリアする

VBA コードで背景色に基づいてセルの内容をクリアする

VBAコードを使用したセル値に基づいてセルの内容をクリアする

たとえば、次のデータ範囲があり、「Hoodie」であるセルの内容をクリアしたい場合は、以下の VBA コードが役に立ちます。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、モジュールウィンドウに次のコードを貼り付けます。

VBAコード：セルが特定の値に等しい場合、セルの内容をクリアします

Sub ClearContents()
'Updateby ExtendOffice
 Dim xRng As Range
 Dim xCell As Range
 Dim xText As String
 Set xRng = Application.Range("A2:A12")
 xText = "Hoodie" 'Change this text to your own
 For Each xCell In xRng
 If xCell.Value = xText Then
 xCell.clearContents
 End If
 Next xCell
End Sub
Note：上記のコードでは、 A2：A12 は、セルの内容を消去するデータ範囲で、テキスト "パーカー」は、クリアする特定の値です。 それらを自分のものに変更してください。

3。 次に、 F5 キーを押してこのコードを実行すると、テキスト「Hoodie」を含むすべてのセルが一度にクリアされます。スクリーンショットを参照してください。

値がVBAコードで特定の値より大きいか小さい場合、行全体をクリアします

以下のデータ範囲があり、列 D の値が 300 より大きいか小さい場合に行の内容全体をクリアするとします。ここでは、それを完了するための VBA コードを作成します。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、モジュールウィンドウに次のコードを貼り付けます。

VBAコード：セル値が特定の値より大きいか小さい場合、行全体をクリアします

Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
    Set xRowRg = xRg.Rows.Item(xF)
    xBol = False
    For Each xCell In xRowRg.Cells
        If Application.IsNumber(xCell.Value) Then
        If xCell.Value > xStrValue Then
        xBol = True
        Exit For
        End If
        End If
    Next
    If xBol Then
        xRowRg.EntireRow.clearContents
    End If
Next
End Sub
Note：上記のコードでは、 D2：D12 データ範囲には、行をクリアする特定の値が含まれています。 300 は特定の値です。 の > スクリプト内の文字 If xCell.Value > xStrValue Then よりも大きい、より小さいを使用する、に変更することを意味します < 必要に応じて文字。

3。 次に、 F5 キーを押してこのコードを実行し、列 D の値が 300 より大きい場合、すべての行の内容がクリアされます。スクリーンショットを参照してください。

便利な機能を使用して、セルの値に基づいてセルまたは行の内容をクリアする

あなたが持っている場合 Kutools for Excelそのと 特定のセルを選択 機能を使用すると、特定の値に基づいてセルまたは行を選択し、セルの内容を一度に削除できます。

インストールした後 Kutools for Excel、次のようにしてください。

1. セルまたは行の内容をクリアする値を含むデータ範囲を選択し、 クツール > 選択 > 特定のセルを選択、スクリーンショットを参照してください：

2。 オープンで 特定のセルを選択 ダイアログボックスで、次の操作を実行します。

  • セル or 行全体 選択したいもの;
  • の下に基準を指定します。 特定のタイプ 必要に応じてセクション。 ここでは、列 D の値が 300 より大きい行を選択します。

3。 次に、をクリックします Ok ボタンをクリックすると、値が 300 より大きいすべての行が選択されます。 ここで、キーボードの Delete キーを押してセルの内容を削除するだけです。スクリーンショットを参照してください。

ヒント: 使用できる基準は他にも多数あります。以下のスクリーンショットのように、ダイアログ ボックスから独自の条件を指定してください。

VBAコードの空白セルが含まれている場合、範囲内の行データをクリアします

この場合、データ範囲のセルに空白が含まれている場合、以下のスクリーンショットのように範囲から行データをクリアしたいと考えています。

このタスクを完了するには、次の VBA コードを適用してください。

1. 押したまま Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュールをクリックし、次のコードを モジュール 窓。

VBAコード:空白のセルが含まれている場合は行データをクリアします

Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub
Note：上記のコードでは、 A2：D12 データ範囲には、セルの内容を消去する空白セルが含まれています。

3。 次に、 F5 キーを押してこのコードを実行すると、必要に応じて特定の範囲で空白セルを含む行データが一度にクリアされます。

VBA コードで背景色に基づいてセルの内容をクリアする

特定の背景色で塗りつぶされたセルをクリアするには、次の VBA コードを使用できます。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュールをクリックし、次のコードを モジュール 窓。

VBAコード：背景色に基づいてセルの内容をクリア

Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
    For Each xcell In xrng
        If xcell.Interior.Color = RGB(252, 228, 214) Then
            xcell.Clearcontents
        End If
    Next
End Sub
Note：上記のコードでは、 A2：D12 使用するデータ範囲は、 RGB（252、228、214） は、セルをクリアする特定の色であり、次を使用して背景色の RGB モードを抽出できます。 ペイント コンピューター上のプログラム。

3。 そして、を押します F5 キーを押してこのコードを実行すると、指定された背景色のセルの内容がすぐにクリアされます。 スクリーンショットを参照してください:

  • スーパーフォーミュラバー （複数行のテキストと数式を簡単に編集できます）; 読書レイアウト （多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
  • セル/行/列をマージする およびデータの保持。 分割セルコンテンツ; 重複する行と合計/平均を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 （すべてのセルは空です）; スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • お気に入りの数式をすばやく挿入する、範囲、チャート、写真; セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター （フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • ピボットテーブルのグループ化 週番号、曜日など... ロック解除された、ロックされたセルを表示する さまざまな色で; 式/名前を持つセルを強調表示する...
kteタブ201905
  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations