在我们工作中有很多麻烦的数据需要我们来判定结果，如下图所示，共有5项测试，每个样品不用每一项都测试，未测试的项目填“/”，规格为“TBD”的项目只提供参考，不做判定依据，部分测试项目的结果为“OK”或“NG”，如果要用函数来解决，是一件麻烦的事，今天教大家VBA解决这个问题。
效果演示如下
首先，点击录制宏，将保存位置改为个人宏工作薄。
代码解析如下图
代码如下：
Dim a As Long, b As Long, c As Byte, d As Byte
Sub panding()
For a = Selection.Row To ActiveSheet.UsedRange.Rows.Count
d = 0
For b = 6 To ActiveSheet.UsedRange.Columns.Count
If Cells(a, b) = "NG" Then
d = d + 1
End If
If Application.WorksheetFunction.IsNumber(Cells(2, b)) And Application.WorksheetFunction.IsNumber(Cells(a, b)) Then
If Cells(a, b) > Cells(2, b) Then
d = d + 1
End If
End If
If Application.WorksheetFunction.IsNumber(Cells(3, b)) And Application.WorksheetFunction.IsNumber(Cells(a, b)) Then
If Cells(a, b) < Cells(3, b) Then
d = d + 1
End If
End If
Next
If d > 0 Then
Cells(a, 5) = "NG"
Else
Cells(a, 5) = "OK"
End If
Next
End Sub
