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

Question

我对 Excel 的 VBA 编码非常陌生，我真的需要在另外 30 个包含每 250 个工作表的工作簿上实现这一点......

我需要一个 VBA 宏，它可以：

• 查找与整个单元格内容匹配的字符串并获取行号 (a)
• 查找工作表中包含的行数 (b)
• 然后删除从 a 到 b 的所有行

任何人都可以帮忙吗？

提前致谢 ！

标签： excelfindrow

Answer 1

出色地，

以防万一有人通过搜索和/或谷歌发现这篇文章：

我把它贴在 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