批量删除满足条件的行和行中的图片

批量删除满足条件的行和行中的图片，而不会影响其他按钮。

如下例，删除A列为0的行和该行中的图片：

Sub 批量删除行和行中的图片() Dim arr, rng As Range, i As Long, arrPic, iPic As Shape, Temp arr = Range("A1:A" & Range("A1048576").End(xlUp).Row) On Error Resume Next ReDim arrPic(1 To UBound(arr)) For Each iPic In ActiveSheet.Shapes If iPic.Type = msoPicture Then arrPic(iPic.TopLeftCell.Row) = iPic.Name End If Next For i = 1 To UBound(arr) If arr(i, 1) = 0 Then If rng Is Nothing Then Set rng = Rows(i) Else Set rng = Union(rng, Rows(i)) ActiveSheet.Shapes(arrPic(i)).Delete End If Next If Not rng Is Nothing Then rng.Delete End Sub