Sub Macros1()

Dim r1 as Object, freq As Variant 

    Set r1 = Range("A1:A10")

    freq = Application.Frequency(r1, Range("B1")) 'Range("B1") - ячейка, в которую на листе введен критерий 2
    
    Range("C2") = freq
End Sub

Sub Macros2()

Dim r1 as Object, freq As Variant 
Dim min_r1 as Long, min_r2 as Long
Dim i as Long

    Set r1 = Range("A1:A10")
    With Application
        min_r1=.min(r1) 
        max_r1=.max(r1)   
    End with

    For i=min_r1 to max_r1
        freq = Application.Frequency(r1, i)
    Next i

End Sub

Sub Macros2()

Dim r1 As Range, freq As Variant
Dim R1_count As Variant
Dim min_r1 As Double, max_r1 As Double
Dim i As Long, data_r1 As Variant

    Set r1 = Range("A1:A10")
    
    With Application.WorksheetFunction
        R1_count = .CountIf(r1, "<>""")
        min_r1 = .Min(r1)
        max_r1 = .Max(r1)
    End With

    For i = min_r1 To max_r1
        freq = Application.WorksheetFunction.Frequency(r1, Array(i))
        data_r1 = freq / R1_count
        Range("C3") = data_r1
    Next i

End Sub

R1_count = .CountIf(r1, "<>""")

data_r1 = freq( 1 ) / R1_count

data_r1 = freq/ R1_count

data_r1 = freq(i)/ R1_count

freq( 1 ,  1 )

Public Function test_Kolmogorova_Smirnova(r1 As Object, R2 As Object)
    'критерий Колмогорова-Смирнова
    'Критерий чувствителен к количеству значений. Для правильных расчетов их должно быть >=50

    Dim min_R1_R2 As Double, max_R1_R2 As Double
    Dim i As Double
    Dim R1_count As Long, R2_count As Long
    Dim freq_R1 As Variant, freq_R2 As Variant, data_r1 As Variant
    Dim max_data_R1_R2 As Variant, data_R1_R2 As Variant
    Dim Krit_KS_temp As Variant
    
    With Application.WorksheetFunction
        min_R1_R2 = .Min(r1, R2)
        max_R1_R2 = .Max(r1, R2)
        R1_count = .CountIf(r1, "<>")
        R2_count = .CountIf(R2, "<>")
    End With
    
    For i = min_R1_R2 To max_R1_R2
        With Application.WorksheetFunction
            freq_R1 = .Frequency(r1, Array(i))
            freq_R2 = .Frequency(R2, Array(i))
        End With
            
        data_R1_R2 = freq_R1( 1 ,  1 ) / R1_count - freq_R2( 1 ,  1 ) / R2_count
        If max_data_R1_R2 < data_R1_R2 Then max_data_R1_R2 = data_R1_R2
    Next i
      
        Krit_KS_temp = max_data_R1_R2 * ((R1_count * R2_count) / (R1_count + R2_count)) ^  0 . 5 
        Krit_KS_temp = Application.WorksheetFunction.Text(.Round(Krit_KS_temp,  3 ), "###0.000")
  
    'перебираем критериальные значения
        If Krit_KS_temp >  1 . 36  Then test_Kolmogorova_Smirnova = Krit_KS_temp & "; p<0.05"
        If Krit_KS_temp >  1 . 95  Then test_Kolmogorova_Smirnova = Krit_KS_temp & "; p>0.001"
        If Krit_KS_temp >  1 . 63  Then test_Kolmogorova_Smirnova = Krit_KS_temp & "; p<0.01"
        If Krit_KS_temp <  1 . 36  Then test_Kolmogorova_Smirnova = Krit_KS_temp & "; p>0.05"

End Function

Public Function test_Kolmogorova_Smirnova(r1 As Range, R2 As Range)
    'критерий Колмогорова-Смирнова
    'Критерий чувствителен к количеству значений. Для правильных расчетов их должно быть >=50

    Dim min_R1_R2 As Double, max_R1_R2 As Double
    Dim i As Double
    Dim R1_count As Long, R2_count As Long
    Dim freq_R1 As Variant, freq_R2 As Variant, data_r1 As Double
    Dim max_data_R1_R2 As Double, data_R1_R2 As Double
    Dim Krit_KS_temp As Double
    
    With Application.WorksheetFunction
        min_R1_R2 = .Min(r1, R2)
        max_R1_R2 = .Max(r1, R2)
        R1_count = .CountIf(r1, "<>")
        R2_count = .CountIf(R2, "<>")
    
        For i = min_R1_R2 To max_R1_R2
            freq_R1 = .Frequency(r1, Array(i))
            freq_R2 = .Frequency(R2, Array(i))
            data_R1_R2 = freq_R1( 1 ,  1 ) / R1_count - freq_R2( 1 ,  1 ) / R2_count
            If max_data_R1_R2 < data_R1_R2 Then max_data_R1_R2 = data_R1_R2
        Next i
          
        Krit_KS_temp = max_data_R1_R2 * ((R1_count * R2_count) / (R1_count + R2_count)) ^  0 . 5 
        
    'перебираем критериальные значения
        If Krit_KS_temp <  1 . 36  Then test_Kolmogorova_Smirnova = .Text(.Round(Krit_KS_temp,  3 ), "###0.000") & "; p<0.05"
        If Krit_KS_temp >  1 . 36  Then test_Kolmogorova_Smirnova = .Text(.Round(Krit_KS_temp,  3 ), "###0.000") & "; p>0.05"
        If Krit_KS_temp >  1 . 63  Then test_Kolmogorova_Smirnova = .Text(.Round(Krit_KS_temp,  3 ), "###0.000") & "; p>0.01"
        If Krit_KS_temp >  1 . 95  Then test_Kolmogorova_Smirnova = .Text(.Round(Krit_KS_temp,  3 ), "###0.000") & "; p>0.001"
    End With


End Function