Delete All Rows Except..... Closed

Question

Hello,

I have a questions that i could not find the answer yet.
I'm also new in macro VBA programming.
The question is, I need to delete all rows in excel except the last row and any rows that have this word: "Blocked".
Anyone with brilliant idea?
Thanks :)

helpmeout · Answer

hey there,

well i will provide you with a link where you will be able to search for what you are willing to do:

http://office.microsoft.com/en-us/excel/results.aspx?qu=delete+some+rows&sc=9&av=O10100&ofcresset=1

hope it will help you

aquarelle · Answer

Hi,
Is the word "blocked" always written in the same column ? If it is the case what column ?
See you

aquarelle · Answer

Hello,
Hope this will work according to your demand : 

Sub testDelete()

Dim plage As Range
Dim numlig As Integer
Dim numcol As Integer
Dim cpt As Integer
Dim nblig As Integer
Dim nbcol As Integer

Set plage = Range("A65536").End(xlUp).CurrentRegion
nblig = plage.Rows.Count
nbcol = plage.Columns.Count


For numlig = nblig To 1 Step -1
   cpt = 0 

   For numcol = 1 To nbcol
      If plage.Rows(numlig).Columns(numcol) = "Blocked" Then
          cpt = cpt + 1
      End If
   Next numcol

   If cpt = 0 Then
    Rows(numlig).delete
   End If

Next numlig
End Sub



Best regards

Delete All Rows Except.....

3 responses

Similar discussions

Subscribe To Our Newsletter!