VBA--数据中有空值时求均值--模板

1. excel数据中有空值
2. 根据不同条件，求均值

Sub test()

standard = Array(1, 2, 3, 4, 5)
Dim result As Long, Count As Long, Sum As Long
    For r = 0 To 4
        'For x = 2 To 18
        Count = 0
        Sum = 0
        For y = 2 To 18
            
            If ThisWorkbook.Sheets(1).Cells(y, 1).Value = standard(r) Then
                If ThisWorkbook.Sheets(1).Cells(y, 2).Value <> "" Then
                    Count = Count + 1
                    Sum = Sum + ThisWorkbook.Sheets(1).Cells(y, 2).Value
                Else
                End If
                
            Else
            End If
                
        Next y
            
        'Next x
        'result = Sum / Count
        If Sum = 0 Or Count = 0 Then
            Debug.Print "条件不充分"
        Else
            Debug.Print Sum
            Debug.Print Count
        End If
        'ThisWorkbook.Sheets(1).Cells(5 + r, 2 + r).Value = Sum / Count
    Next r

End Sub