求代码，找出列中连续负值的最小值，连续正值中的最大值

oogoogle

各位大大好，小弟求一段代码。条件如下：

负值情况：

1、随着行数的递增，不断的找出O列连续负值中的最小值x。
2、在x 后面找到第一个比x大10的负值y(y也在这个连续负值中)，并把y记录在同一行的AA列。
3、如果x后面先出现一个新的最小值x1(x1<x),那么放弃找y, 而是在x1后面找到第一个比x1大10的负值y1(y1也在这个连续负值中),并把y1记录在同一行的AA列。以此类推。

正值情况：

1、随着行数的递增，不断的找出O列连续正值中的最大值a。
2、在a后面找到第一个比a小10的正值b(b也在这个连续正值中),并把b记录在同一行的AA列。
3、如果a后面先出现一个新的最大值a1(a1>a),那么放弃找b, 而是在a1后面找到第一个比a1小10的正值b1(b2也在这个连续正值中),并把b1记录在同一行的AA列。以此类推。


样本数据和说明例子见附件xls文件。 book1 ver.2.xlsx.zip (90.1 KB, 下载次数: 0)

2023-4-20 22:09 上传

点击文件名下载附件

祝福各位要风得风，要雨得雨，花开富贵，人生得意！

oogoogle

有没有大神能写出来，第一个写出来的能够执行无误的，有偿酬谢50元话费。

一掷乾坤

91.48在142.41后面出现，怎么会找91.48呢？

darklesson

老师，连续怎么理解？2个连续的赋值就算连续吗？

oogoogle

一掷乾坤 发表于 2023-4-20 21:19
91.48在142.41后面出现，怎么会找91.48呢？

抱歉，你画框这里确实我写错说明了。情况应该类同与69行第4点这个情况。我修改说明文件再上传，谢谢您的指正。

oogoogle

darklesson 发表于 2023-4-20 21:31
老师，连续怎么理解？2个连续的赋值就算连续吗？

是的。只要出现第一个正值，后面再出现一个正值就定义为连续正值。直到出现一个负值则这个连续终止。负值的情况，以此类推。

一掷乾坤

oogoogle 发表于 2023-4-20 22:14
是的。只要出现第一个正值，后面再出现一个正值就定义为连续正值。直到出现一个负值则这个连续终止。负值 ...

你这个连续区域是已知的吧

三分醉，七分醒

试一下，这个

一掷乾坤

Sub ceshi()
   
    d = 3
    c = 1048576
   
    a = Cells(3, "o").Value
    For i = d To c
        If Cells(i, "o").Value * Cells(i + 1, "o").Value > 0 Then
            
            b = Cells(i + 1, "o").Value
            If b < 0 Then
                If a > b Then
                    a = b
                ElseIf b - a > 10 Then
                    Cells(i + 1, "n").Value = b
                End If
               
            ElseIf b > 0 Then
                If b > a Then
                    a = b
                ElseIf a - b > 10 Then
                    Cells(i + 1, "n").Value = b
                End If
            End If
        ElseIf Cells(i, "o").Value * Cells(i + 1, "o").Value < 0 Then
            
            a = Cells(i + 1, "o").Value
            
        ElseIf Cells(i + 1, "o").Value = "" Then
            Exit For
        End If
    Next i
End Sub

oogoogle

三分醉，七分醒 发表于 2023-4-20 23:15
试一下，这个

您好，代码执行完美，达到我的要求。并且您是第一位完成的。请私信告知您的手机号，我为您充值50元话费作为答谢酬金。