excel - 평균 이상의 2SD 이상인 경우 값을 제외합니다

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

생산 :

데이터 구조에 맞게 코드를 조정해야합니다.