VBA 循环数据组的两个判断及标示 ( 高难度 )

gwjkkkkk

Sub TEST3()
    Dim br(), i&, j&, r&, k&, iRow&, iCol&
   
    Application.ScreenUpdating = False
   
    iRow = Cells(Rows.Count, "AF").End(xlUp).Row
    iCol = Cells(4, Columns.Count).End(xlToLeft).Column
    With Range("AF4", Cells(iRow, iCol))
        For j = 1 To .Columns.Count Step 5
            r = r + 1
            ReDim Preserve br(1 To 2, 1 To r)
            Set br(1, r) = .Cells(1, j).Resize(.Rows.Count, 5)
            br(2, r) = br(1, r).Value
        Next j
    End With
    For k = 1 To UBound(br, 2)
        For j = 1 To UBound(br(2, k), 2)
            For i = 2 To UBound(br(2, k))
                If br(2, k)(i, j) < br(2, k)(i - 1, j) Then br(1, k).Cells(i, j).Font.Bold = True
            Next i
        Next j
        For i = 1 To UBound(br(2, k))
            For j = 2 To UBound(br(2, k), 2)
                If br(2, k)(i, j) < br(2, k)(i, j - 1) Then br(1, k).Cells(i, j).Font.Italic = True
            Next j
        Next i
    Next k
   
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考附件。。。