Note: The other languages of the website are Google-translated. Back to English

How to clear cell contents based on condition in Excel?

Sometimes you may need to clear cell contents based on conditions in Excel, such as clearing the cell contents if the cell contains specific value, clearing the cell contents if there are blank cells in another column, or clearing cell contents with specific background color, etc. This article will introduce some tricks for solving these tasks quickly and easily.

Clear Cell Contents Based on cell value with VBA code

Clear entire rows if value is greater or less than a specific value with VBA code

Clear cell or row contents based on cell value with a handy feature

Clear entire rows if another cell is blank with VBA code

Clear cell contents based on background color with VBA code


Clear Cell Contents Based on cell value with VBA code

For example, you have the following data range, now, you want to clear the cell contents that are “Hoodie”, the below VBA code can do you a favor.

1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2. Click Insert > Module, and paste the following code in the Module Window.

VBA code: Clear cell contents if cell equals a specific value

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: In the above code, A2:A12 is the data range that you want to clear cell contents from, the text “Hoodie” is the specific value that you want to clear. Please change them to your own.

3. Then, press F5 key to run this code, and all cells with the text “Hoodie” are cleared at once, see screenshot:


Clear entire rows if value is greater or less than a specific value with VBA code

Supposing, you have the below data range, to clear entire row contents if the value in column D is greater or less than 300. Here, I will create a VBA code to complete it.

1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2. Click Insert > Module, and paste the following code in the Module Window.

VBA code: Clear entire rows if cell value is greater or less than a specific value

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: In the above code, D2:D12 is the data range contains the specific value you want to clear rows based on; 300 is the specific value; the > character within the script If xCell.Value > xStrValue Then means greater than, use less than, change it to < character as you need.

3. Then press F5 key to run this code, and all the row contents are cleared if the value in column D is greater than 300, see screenshot:


Clear cell or row contents based on cell value with a handy feature

If you have Kutools for Excel, with its Select Specific Cells feature, you can select the cells or rows based on the specific value, and then delete the cell contents at once.

After installing Kutools for Excel, please do as this:

1. Select the data range with values that you want to clear cell or row contents based on, and then, click Kutools > Select > Select Specific Cells, see screenshot:

2. In the opened Select Specific Cells dialog box, do the following operations:

  • Click Cell or Entire row that you want to select;
  • Specify the criteria under the Specific type section as you need. Here, I want to select the rows whose value in column D is greater than 300.

3. Then click Ok button, and all the rows with the value greater than 300 are selected. Now, you just need to press Delete key on the keyboard to delete the cell contents, see screenshot:

Tips: There are many other criteria that you can use, please specify your own condition from the dialog box as below screenshot shown:

Clear rows data in a range if contains blank cell with VBA code

In this case, if the cell in the data range contains any blank, I want to clear the rows data from the range as below screenshot shown.

To finish this task, please apply the following VBA code:

1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2. Click Insert > Module, and then, paste the following code in the Module Window.

VBA code: Clear rows data if contains blank cell

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: In the above code, A2:D12 is the data range contains blank cells you want to clear cell contents from.

3. Then, press F5 key to run this code, and the rows data with blank cells are cleared at once in the specific range as you need.


Clear cell contents based on background color with VBA code

To clear the cells which are filled with a specific background color, you can use the following VBA code.

1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2. Click Insert > Module, and then, paste the following code in the Module Window.

VBA code: Clear cell contents based on background color

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: In the above code, A2:D12 is the data range that you want to use, RGB(252, 228, 214) is the specific color you want to clear cells based on, you can extract the RGB mode of the background color by using the Paint program on your computer.

3. And then, press F5 key to run this code, and the cell contents with the specified background color are cleared immediately. See screenshot:



  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns and Keeping Data; Split Cells Content; Combine Duplicate Rows and Sum/Average... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Favorite and Quickly Insert Formulas, Ranges, Charts and Pictures; Encrypt Cells with password; Create Mailing List and send emails...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • Pivot Table Grouping by week number, day of week and more... Show Unlocked, Locked Cells by different colors; Highlight Cells That Have Formula/Name...
kte tab 201905
  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations