有没有高手会用VBA编写这个数据计算问题

work_01

麻请各位高手认真看下我的问题，请教下如何用VBA代码解决的思路及代码   

魂断蓝桥

Sub a()
Dim arr, i, h%, b%
arr = [a1].CurrentRegion
For i = 3 To UBound(arr)
    If arr(i, 1) = "小计" Then Cells(i, 5) = ""
    If arr(i, 5) <> "" And arr(i, 1) <> "合计" Then
        If arr(i, 5) = "合格" Then h = h + 1
        If arr(i, 5) = "不合格" Then b = b + 1
    Else
        On Error Resume Next
            Cells(i, 5) = h / (h + b)
        On Error GoTo 0
        Cells(i, 5).NumberFormat = "0.00%"
        h = 0: b = 0
    End If
Next
End Sub

凌空一羽

Sub lkyy()
On Error Resume Next
For i = 3 To 162
    If Cells(i, "a") = "小计" Then
        起 = Range("a" & i - 1).MergeArea(1, 1).Row
        结 = 起 + Range("a" & i - 1).MergeArea.Rows.Count - 1
        tol不 = 0: tol合 = 0
        For a = 起 To 结
            If Cells(a, "e") = "不合格" Then tol不 = tol不 + 1
            If Cells(a, "e") = "合格" Then tol合 = tol合 + 1
        Next
        Cells(i, "E") = tol合 / (tol不 + tol合)
    End If
Next
End Sub

work_01

非常感谢楼上的两位高手