delete all rows not beginning with
Oh! Sorry! It was great my carelessness !
Thnks Lars!
I will try to make amends.
Sub DeleteRows()
Dim i As Integer
Dim rngFound As Range
Dim rngAllRows As Range
Dim astrText() As Variant
On Error Resume Next
astrText = Array("AAAF800", "AAAF900", "AAA1000")
Set rngAllRows = Range("A:A")
For i = LBound(astrText) To UBound(astrText)
Set rngFound = Range("A:A").Find(astrText(i))
If Not rngFound Is Nothing Then
Set rngAllRows = rngAllRows.ColumnDifferences(rngFound)
End If
Set rngFound = Nothing
Next i
rngAllRows.EntireRow.Delete
End Sub
Ο χρήστης "Lars-Åke Aspelin" *γγραψε:
Note that it is "AAA1000" and not "AAAF1000"
Lars-Åke
On Wed, 11 Nov 2009 15:53:01 -0800, John_John
wrote:
Another diferent approach:
Sub DeleteRows()
Dim i As Integer
Dim rngFound As Range
Dim rngAllRows As Range
On Error Resume Next
Set rngAllRows = Range("A:A")
For i = 800 To 1000 Step 100
Set rngFound = Range("A:A").Find("AAAF" & i)
If Not rngFound Is Nothing Then
Set rngAllRows = rngAllRows.ColumnDifferences(rngFound)
End If
Set rngFound = Nothing
Next i
rngAllRows.EntireRow.Delete
End Sub
|