用VBA求连续区域的最小值和最大值

干勇平

各位大侠，用VBA求连续区域的最小值和最大值

区域为：从空值下面行开始，直到下一个空值之前的此区域
详见附件示例，附件有两类问题
如有帮助，聊以小花感谢。

3190496160

先留个记号吧，有时间再看看

准提部林

如J13应填2022-2-7，K13应填2022-4-23
__前面就有連續兩個"大類", 這怎算的??

大小日期填在下方空格, 那最後區段填在哪???

沒幾個數據, 全部模擬正確結果上傳看看!!!

liulang0808

Sub 按钮1_Click()
    r = Cells(Rows.Count, 2).End(3).Row
    arr = Range("b7:c" & r + 1)
   
    For j = 2 To UBound(arr) - 1
        If Len(arr(j, 1)) = 0 Then
            mn = CDate(arr(j + 1, 1))
            mx = CDate(arr(j + 1, 2))
            For i = j + 1 To UBound(arr)
                If Len(arr(i, 1)) > 0 Then
                    If mn > CDate(arr(i, 1)) Then mn = CDate(arr(i, 1))
                    If mx < CDate(arr(i, 2)) Then mx = CDate(arr(i, 2))
                Else
                    arr(j, 1) = mn '
                    arr(j, 2) = mx
                    j = i - 1
                    Exit For
                End If
            Next i
        End If
    Next j
    Range("d7:e" & r + 1) = arr
End Sub

liulang0808

供参考。。。。。。。。。。。。

gwjkkkkk

Sub TEST()
    Dim arr, i&, j&, iPosRow&, Rng As Range
    arr = Range("B8", Cells(Rows.Count, "C").End(3))
    Set Rng = Range("B8", Cells(Rows.Count, "C").End(3))
    For i = 1 To UBound(arr)
       If arr(i, 1) = "" Then
          arr(i, 1) = arr(i + 1, 1): arr(i, 2) = arr(i + 1, 2)
          iPosRow = i
          Else
          arr(iPosRow, 1) = IIf(arr(i, 1) < arr(iPosRow, 1), arr(i, 1), arr(iPosRow, 1))
          arr(iPosRow, 2) = IIf(arr(i, 2) > arr(iPosRow, 2), arr(i, 2), arr(iPosRow, 2))
       End If
    Next i
    [B8].Resize(UBound(arr), UBound(arr, 2)) = arr
    Rng.NumberFormatLocal = "yyyy-mm-dd"
    Beep
End Sub

gwjkkkkk

请楼主参考附件。。。

蓝桥玄霜

连续的例子：

excelvlookup

大类和大类之间计算，最后一个大类和谁之间呢？即 i41 的下一个大类在哪？暂把最有一行算大类。

熊文来

这么多大师都在帮忙，真好！