Excel VBA Macro: Delete Rows (Based on Cell Values in Multiple Columns)

Показать описание

Excel VBA Macro: Delete Rows (Based on Cell Values in Multiple Columns)

Code:
Sub delete_rows_based_on_multi_col()

Dim row_count As Long
Dim i As Long
Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Countries")

ws.Activate

i = 2

Do While i ＜= row_count

If Cells(i, 6) = "" _
Or Cells(i, 10) = "" _
Or Cells(i, 5) ＞ 10000 Then

Rows(i).EntireRow.Delete
i = i - 1
row_count = row_count - 1
End If

i = i + 1

Loop

End Sub

#excelmacro #excelvba

greggowaffles

Рекомендации по теме

Комментарии

You are Thank you!!

Quick Question. I want to delete duplicates. What code do I type to delete duplicates?

If Cells(i, 1).Value > 1 ?? <- this didn't work but I know its something like this.

Im trying to tell the code to delete rows that are both ...
*duplicates in column A or (i, 1)
AND if
*labeled "expired" in column C or (i, 3)

Do While i <= row_count
If Cells(i, 1) = "Duplicate" _
And Cells(i, 3) = "Expired" Then

Rows(i).EntireRow.Delete
i = i - 1
row_count = row_count - 1
End If

ItsTyara

Is there a reason why didn’t you do a For loop, this looks complicated

sakhilengwenya

I want to do something similar to this...
I have some records and I there's a column that may contain duplicate values and I want that based on a value that is on another column delete one specific row from my duplicates, meaning I just want to keep one specific row based on the values that column F (duplicate values) and column B (what determinates which row I have to delete). For example I have:
Row 1, Column B value = 0, Column F value = 123456
Row 2, Column B value = 1, Column F value = 123456
Based on that example I want to delete rows where my Column F value is duplicate and the column B value is 1. In that case Row 2 must be deleted and Row 1 needs to stay.

Is there any way of doing this using VBA?

josea.pascualr.

Why did we give i, 6 or i, 10 ? Cant we give just a universal condition for the entire row?

deepk

Can I loop it where the cells check against other cells on another worksheet and remove the rows from the first worksheet?

SMJ

Excel VBA Macro: Delete Rows (Based on Cell Values in Multiple Columns)

Delete Rows Based On Criteria Excel VBA Macro

VBA Macro to Delete Rows Based on Cell Values

Excel VBA Macro: Delete Rows Based on Cell Value (Zeros and Blanks)

Excel VBA Macro: Delete Rows (Based on Cell Values in Multiple Columns)

Excel VBA Macro: Delete Rows (Based on List of Values)

Add Buttons To Delete Rows Excel VBA Macro

Excel VBA Macro: Delete Rows Faster (Based on Cell Value)

Excel VBA Delete row macro

Advanced Excel Training in 2024 - 2025

Excel VBA Macro: Delete Rows if Cell Does Not Contain a Certain Text (String) Value

Delete Blank Rows Excel VBA Macro

Excel VBA - Rows and Columns Delete

Excel VBA to Delete Row or Column in Excel Table

VBA Macro Code to Delete Rows Based on Cell Values

How to use VBA in Excel to Delete Rows with Some Value

How to Delete rows in Excel VBA using For loop

Excel VBA macro to delete rows based on cells value

Delete Rows And Columns - VBA Macros - Tutorial - MS Excel 2007, 2010, 2013

Excel - Delete entire specified column using Macro/VBA

Excel VBA - Delete Cells

31 VBA Macro to Insert/ Delete Rows or Columns

Delete Rows based on Value/Text // Excel VBA Tutorial

Excel VBA to Delete Rows if Cell is Blank - Delete Rows Based on Cell Value - Code Included

Deleting rows based on cell values across sheets using VBA