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("年初单位净值:") LoopEnd Sub