读取峰谷值

87907856

读取峰谷值及其时间
示例：

grf1973

画个图表看看吧。。。。。。。不然很难判断的。

1. Sub 找最高点()
   
2.     r = [c65536].End(3).Row
   
3.     Range("G:H").ClearContents
   
4.     arr = Range("a3:C" & r)
   
5.     imax = 0
   
6.     For i = 2 To UBound(arr) - 1
   
7.         r = i: r1 = i - 1: r2 = i + 1   'r当前记录，r1上一记录，r2下一记录
   
8.         
   
9.         If arr(r, 3) = arr(r1, 3) Then       '上一记录等于当前记录，向上找到不等于当前记录为止
   
10.             Do While arr(r, 3) = arr(r1, 3)
    
11.                 r1 = r1 - 1
    
12.             Loop
    
13.         End If
    
14.         
    
15.         If arr(r, 3) = arr(r2, 3) Then      '下一记录等于当前记录，向下找到不等于当前记录为止
    
16.             Do While arr(r, 3) = arr(r1, 3)
    
17.                 r2 = r2 + 1
    
18.             Loop
    
19.         End If
    
20.         
    
21.         If arr(r1, 3) <= arr(r, 3) And arr(r2, 3) <= arr(r, 3) Then      '距当前最近的上下记录都小于当前记录，则为最大值
    
22.             Cells(r + 2, "g") = arr(r, 1)
    
23.             Cells(r + 2, "h") = arr(r, 3)
    
24.         End If
    
25.     Next
    
26. End Sub
    

复制代码

grf1973

搞了个最高点的。。。。发现只能把前后都小于峰值的点找出来。