类似求这样的第二个最大值(同一时间内发生的只计算一次)时,可能需要用宏才能实现。
Sub tty()
Dim i, maxvalue, maxflag As Integer
maxvalue = Application.WorksheetFunction.max(Range("B:B"))
maxflag = 0
i = 1
Do While Cells(i, 2) <> ""
If Cells(i, 2) = maxvalue And Cells(i, 2) <> Cells(i + 1, 2) Then
maxflag = maxflag + 1
If maxflag = 2 Then GoTo kkk
End If
i = i + 1
Loop
kkk: kkk: Range("D1") = Cells(i, 1)
End Sub
温馨提示:内容为网友见解,仅供参考