Excel VBA найти строку в столбце, а затем удалить все оставшиеся строки на листе

Question

Я чрезвычайно новичок в кодировании VBA для Excel, и мне действительно нужно добиться этого еще на 30 рабочих книгах, содержащих каждые 250 рабочих листов ...

Мне нужен макрос VBA, который может:

• найти строку, которая соответствует всему содержимому ячейки и получить номер строки (a)
• найти номер строки, содержащейся в листе (b)
• , затем удалить все строки от a доb

Кто-нибудь может помочь?

Заранее спасибо!

Answer 1

Что ж,

На всякий случай, если кто-нибудь заколет этот пост с помощью поиска и / или Google:

Я разместил его на Reddit , и добрая душа дала мнеответ:

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