请各路大神指点！！！

如果问题转换成：相同流水号对应的G列和H列里的数值个数要有2个，则YES,否则NO，会不会有大神知道怎么设公式 ？

'
Option Explicit
'
Sub abc()
　Dim a, i, j, p
　a = [a1].CurrentRegion.Offset(1).Resize(, 8).Value
　ReDim b(1 To UBound(a) - 1, 1 To 2)
　For i = 1 To UBound(a) - 1
　　If a(i, 1) <> a(i + 1, 1) Then
　　　For j = 7 To 8
　　　　Call bsort(a, p + 1, i, j, j, j)
　　　Next
　　　For j = p + 1 To i
　　　　If a(j, 7) <> a(j, 8) Then Exit For
　　　Next
　　　If j = i + 1 Then b(p + 1, 1) = "yes" Else b(p + 1, 1) = "no"
　　　p = i
　　End If
　Next
　[o2].Resize(UBound(b), 2) = b
End Sub
'
Function bsort(a, first, last, left, right, key)
　Dim i, j, k, t
　For i = first To last - 1
　　For j = first To last + first - 1 - i
　　　If a(j, key) > a(j + 1, key) Then
　　　　For k = left To right
　　　　　t = a(j, k): a(j, k) = a(j + 1, k): a(j + 1, k) = t
　　　　Next
　　　End If
　　Next
　Next
End Function

或者这样行不行？有没有办法计算某运单流水号对应的GH这两列的不重复内容有几个？

Option Explicit
'
Sub abc()
　Dim a, i, j, k, t, p
　a = [a1].CurrentRegion.Offset(1).Resize(, 8).Value
　ReDim b(1 To UBound(a) - 1, 1 To 2)
　For i = 1 To UBound(a) - 1
　　If a(i, 1) <> a(i + 1, 1) Then
　　　t = a(p + 1, 8)
　　　For j = 1 To i - p
　　　　For k = p + 1 To i
　　　　　If a(k, 7) = t Then t = a(k, 8): a(k, 7) = vbNullString: Exit For
　　　　Next
　　　　If k = i + 1 Then Exit For
　　　Next
　　　If j = i - p + 1 Then b(p + 1, 1) = "yes" Else b(p + 1, 1) = "no"
　　　p = i
　　End If
　Next
　[o2].Resize(UBound(b), 2) = b
End Sub

还没搞定？