求自动框出符合条件的单元格区域方法（详细说明见附件）

bingtianxuedi3

求自动框出符合条件的单元格区域方法（详细说明见附件）

shiruiqiang

按照要求，分别汇总8个值，求最大值开始的行号

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, br, i&, j&, n&, vMax
   
    With Range("A2", Cells(2, "C").End(xlDown))
        .Interior.ColorIndex = 0
        ar = .Value
        n = UBound(ar) - 7
        ReDim br(1 To n, 1 To 2)
        For j = 2 To UBound(ar, 2)
            vMax = 0
            For i = 1 To n
                br(i, 1) = WorksheetFunction.Sum(.Cells(i, j).Resize(8))
                If br(i, 1) > vMax Then vMax = br(i, 1)
                Set br(i, 2) = .Cells(i, j).Resize(8)
            Next i
            For i = 1 To n
                If br(i, 1) = vMax Then br(i, 2).Interior.Color = vbYellow
            Next i
        Next j
    End With
End Sub

gwjkkkkk

请参考附件。。。

zxsea_7426

bingtianxuedi3

zxsea_7426 发表于 2023-5-28 20:38

感谢大佬，效果不错，不过感觉有点小问题，有的选中的好像不是最大的八个区域，再一个每个组里第三列数据还没完全填满整个行数，可以先不框起来，可能我模拟的表格有点简单了，我再上传了一个相对完整的附件，您帮忙再看看，非常感谢！

bingtianxuedi3

zxsea_7426 发表于 2023-5-28 20:38

上传了个一个新的附件，大佬帮忙稍微修改下，谢谢了

shiruiqiang

模拟数据有点问题

zxsea_7426

bingtianxuedi3 发表于 2023-5-29 18:08
上传了个一个新的附件，大佬帮忙稍微修改下，谢谢了

不知道是不是这样的效果

cyq4896

是不是这样效果