Скажем, у нас есть данные в столбце B , например:
(выбросы четко обозначены)
Запуск этого маленького макроса:
Sub OutlierKiller()
Dim I As Long, N As Long, wf As WorksheetFunction
Dim U As Double, L As Double, v As Double
Set wf = Application.WorksheetFunction
N = Cells(Rows.Count, "B").End(xlUp).Row
U = wf.Average(Range("B:B")) + 2 * wf.StDev_S(Range("B:B"))
L = wf.Average(Range("B:B")) - 2 * wf.StDev_S(Range("B:B"))
For I = 1 To N
v = Cells(I, 2).Value
If v >= U Or v <= L Then Cells(I, 2).Clear
Next I
End Sub
даст:
Вам потребуетсяизмените код в соответствии со своей структурой данных.