Function bs(a As Range, b As Range)
If a.Value > b.Value Then
bs = "合格"
Else
bs = "不合格"
End If
End Function
