问题一：当前排序方式下，检查某车辆某月同一流水号（只需要检查第一个和最后一个流水号的）的起点和终点是不是形成一个循环，举例：第一流水号内，地点A到地点B，地点B到地点C，地点C到地点D，地点D到地点A，就是形成了一个循环。这个地点的多少不确定，有些时候3个，有些时候4个，5个或更多。能否用公式或者VBA实现自行检测？
问题二：当前排序方式下，将某车辆的最后一个流水号中，最后一个装货或者卸货重量标注颜色。

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

行列号 公式写在哪里 什么都不说清猜一下N2=IF(A2=A1,N1,IF(AND(INDEX(G:H,XMATCH(A2,A:A,,{1;-1}),{1;2})=G2),"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

=REPT(IF(AND(COUNTIFS(G:G,FILTER(H:H,A:A=A2),A:A,A2)),"yes","no"),A2<>A1)

还没搞定？

看了10楼的图，才get到 楼主的问题点
我智商还得提高