VBA条件格式+删除单元格

Question

Is there a method to delete a whole row based upon a cell in it using VBA?

Trying to complete the following task:

1. Select whole row based upon a cell in it in my case cell value <3
2. Delete entire row

I used CF to achieve the first part, but when trying to delete the highlighted cells (color from CF), the color cannot be found by the Find Function.

Can anyone redirect me to a specific post please been looking for hours.
Danke

Answer 1

How about something like this:

Sub Delete3()

Dim F As Integer
Dim Y As Integer
Dim RngCount As Range


Set RngCount = ActiveSheet.Range("COLUMN:COLUMN")
Y = Application.WorksheetFunction.CountA(RngCount)

For F = Y To 1 Step -1

If ActiveSheet.Range("COLUMN" & F).Value < 3 Then
ActiveSheet.Rows(F).EntireRow.Delete
End If

Next F

End Sub

You just need to replace the word COLUMN with the letter of the column where the values are, eg "C:C" and "C".