Coloque seus pares de dados nas colunas A e B . Em C1 , digite:
=ABS(A1-B1)/((A1+B1)/2)
e copie:
Agora,paraexcluirosdados"ruins", execute esta macro curta:
Sub dural()
Dim i As Long, N As Long
N = Cells(Rows.Count, "C").Value
For i = N To 1 Step -1
If Cells(i, "C").Value > 0.2 Then Cells(i, "C").EntireRow.Delete
Next i
End Sub
Com o resultado:
Continue a processar apenas os demais A & dados B .