[vba]Код
Sub del()
Dim x
Dim i&
Dim delrange As Range, vbr
x = База.Range("A1:A" & База.[a65535].End(xlUp).Row).Value
For i = 1 To UBound(x)
If x(i, 1) = Сводная.[j2].Value Then
If delrange Is Nothing Then
Set delrange = База.Cells(i, 1)
Else
Set delrange = Union(delrange, База.Cells(i, 1))
End If
End If
Next
If delrange Is Nothing Then
MsgBox "Нет подходящих строк"
Exit Sub
End If
vbr = MsgBox(prompt:="Удалить строки?", Buttons:=vbYesNo)
If vbr = vbYes Then
delrange.EntireRow.Delete
End If
Set delrange = Nothing
End Sub
[/vba]