Excel VBA 在列中查找字符串然后删除工作表中所有剩余的行

Question

I am extremely new to VBA coding for excel and i really need to achieve this on 30 more workbooks containing each 250 worksheets...

I need a VBA macro that can :

• find a string which match the entire cell contents and get row number (a)
• find the number of row contain in the worksheet (b)
• then delete all rows from a to b

Can anyone help ?

Thanks in advance !

Answer 1

Well,

Just in case someone stubble on this post through search and/or google :

I posted it on Reddit and a kind soul gave me the answer :

Sub DeleteRowsAfterFinding3()

Dim i As Long
Dim rangeFound As Range
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

    Set rangeFound = ws.Range("A:A").Find("SOMETHING", Lookat:=xlWhole)

    If Not rangeFound Is Nothing Then
        For i = rangeFound.Row + 1 To ws.UsedRange.Rows.Count
            ws.Rows(rangeFound.Row + 1).Delete
        Next i
    End If

Next ws

End Sub