找寻一组数据的波峰与波谷

sis1213

问题点：1.一组数据，数据大小不确认。有可能是500个也有可能是1000个，但不会超出Excel列的上限

2.找出其中一组连续的波峰与波谷的差值最大的值，可能表达的会不清楚，所以我列举了这组数据的前70个数据说明

小花鹿

找出每一个波峰和波谷，然后再进行比较..................................................................

sis1213

小花鹿 发表于 2017-8-17 17:57
找出每一个波峰和波谷，然后再进行比较................................................................ ...

技术比较差，有没有什么函数或者程序可以快速找出我需要的那个值，而不用人为的去找

dqhtju

sis1213 发表于 2017-8-17 20:44
技术比较差，有没有什么函数或者程序可以快速找出我需要的那个值，而不用人为的去找

讲真，如果你的数据很有规律，那好做
但是，如果你的数据没有规律，那不好做，比如波峰波谷不会成对出现
因此，需要明确定义出，什么样的叫波峰，什么样的叫波谷

sis1213

dqhtju 发表于 2017-8-17 20:58
讲真，如果你的数据很有规律，那好做
但是，如果你的数据没有规律，那不好做，比如波峰波谷不会成对出现 ...

波峰和波谷会不会成对出现看数据的，这个还真不一定的。波峰是指一定的范围内，波幅的最大值，与之相对的最小值则被称为波谷。比如这样的。

sis1213

dqhtju 发表于 2017-8-17 20:58
讲真，如果你的数据很有规律，那好做
但是，如果你的数据没有规律，那不好做，比如波峰波谷不会成对出现 ...

波峰和波谷会不会成对出现这个要看数据，还真不一定。波峰是指一定的范围内，波幅的最大值，与之相对的最小值则被称为波谷，如下图这样的。

chxw68

1. Sub test()
   
2.   Dim r%, i%, m%
   
3.   Dim arr, brr()
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("b2:b" & r)
   
7.     For i = 2 To UBound(arr) - 1
   
8.       If (arr(i, 1) < arr(i - 1, 1) And arr(i, 1) < arr(i + 1, 1)) Or (arr(i, 1) > arr(i - 1, 1) And arr(i, 1) > arr(i + 1, 1)) Then
   
9.         m = m + 1
   
10.         ReDim Preserve brr(1 To m)
    
11.         brr(m) = arr(i, 1)
    
12.       End If
    
13.     Next
    
14.     cz = 0
    
15.     For i = 2 To UBound(brr)
    
16.       s = Abs(brr(i) - brr(i - 1))
    
17.       If cz < s Then
    
18.         cz = s
    
19.       End If
    
20.     Next
    
21.     MsgBox "最大差值为" & cz
    
22.   End With
    
23. End Sub
    

复制代码

chxw68

详见附件。

sis1213

chxw68 发表于 2017-8-17 21:26

恩恩，谢谢的。我先试试你提供的方法。

sis1213

chxw68 发表于 2017-8-17 21:27
详见附件。

大神，如果我想知道波峰与波谷差值最大的出现在哪个区间内会知道的吗？比如把差值最大的波峰和波谷在数据中标出。