Function FILTR(ByVal TDonn, ByVal TCond)
Dim LE&, LS&, C&
If TypeOf TDonn Is Range Then TDonn = TDonn.Value
If TypeOf TCond Is Range Then TCond = TCond.Value
For LE = 1 To UBound(TDonn, 1)
If TCond(LE, 1) Then
LS = LS + 1
For C = 1 To UBound(TDonn, 2)
TDonn(LS, C) = TDonn(LE, C)
Next C: End If: Next LE
Do While LS < UBound(TDonn, 1)
LS = LS + 1
For C = 1 To UBound(TDonn, 2)
TDonn(LS, C) = ""
Next C: Loop
FILTR = TDonn
End Function
=FILTR($A$1:$B$10;$A$1:$A$10=$C$2)