'分段中可能有并列最高出现的 Option Explicit Sub 分段标记最大值位置() Dim a, i, j, n, p, t, max a = Range("e2:i" & Cells(Rows.Count, "i").End(xlUp).Row + 1).Value ReDim b(1 To UBound(a) - 1, 1 To 1) For i = 1 To UBound(a) - 1 If max <= a(i, 1) Then If max = a(i, 1) Then p = p & "," & i Else p = i max = a(i, 1) End If If a(i, 5) <> a(i + 1, 5) Then t = Split(p, ",") For j = 0 To UBound(t) b(t(j), 1) = 1 Next max = 0 End If Next [j2].Resize(UBound(b)) = b End Sub