现在有N个Excel工作簿,需要将每个工作簿中的特定几个行项目删除,如下图所示,请问怎样能够实现批量删除

2025-03-13 07:52:57
推荐回答(1个)
回答1:

Sub Macro1()
    Dim c As Range
    Set c = [a:a].Find("年初单位净值:")
    Do Until c Is Nothing
        c.Resize(19).EntireRow.Delete
        Set c = [a:a].Find("年初单位净值:")
    Loop
End Sub