小白问一下 宏如何查找信息后删除那行

Sub test()
For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(r, 1) = "商品信息" Then Rows(r).Delete
Next r
End Sub

如果你的查找文字分布在多列（如图），可用此程序：
Sub Test2()
Do
Set C = Range("A:F").Find("AA")
If C Is Nothing Then Exit Sub
C.EntireRow.Delete
Loop
End Sub