表中我已经排好序，比如I列数值为1，F列相同的有4个，那就是4个中费用最高的一个做标记，在判断结果列中标记为1。谢谢大神指教！

=IF(E2=MAXIFS(E:E,F:F,F2),1,"")
但是目测你这版本也没MAXIF函数，所以就用下面的公式
=IF(E2=MAX(IF(F:F=F2,E:E)),1,"")

'分段中可能有并列最高出现的
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

不明觉厉！