解决思路:
遍历数组,出现负值,Key就递增,出现连续负值,相关key对应的item就递增。然后取item最大值
具体代码:
Function 负数(rn)
Set D = CreateObject("Scripting.Dictionary")
n = 1
For Each r In rn
If r < 0 Then
D(n) = D(n) + 1
Else
n = n + 1
End If
Next r
A = D.items
If D.Count = 0 Then
负数 = ""
Else
负数 = Application.WorksheetFunction.Max(A)
End If
End Function