两个时间对比的问题

hdysdd

想通过宏解决：区域（5：37行）内单行与双行时间对比（上与下的对比），双行的时间显示对应颜色。例：第5行的时间和第6行的时间对比，第5行、第6行的时间如有一个为空格，则维持原色；如果第6行的时间大于第5行的时间，则显示为淡黄色，如果第6行的时间小于第5行的时间则显示淡绿色。

蓝桥玄霜

颜色的例子：

microyip

循环对比一下，用Unio把相同颜色的单元格组合一起，然后一次附色即可

hdysdd

microyip 发表于 2020-3-15 09:08
循环对比一下，用Unio把相同颜色的单元格组合一起，然后一次附色即可

我是莱鸟，由于数据较多，考虑到运行速度问题，还是想用宏一键实现。

hdysdd

蓝桥玄霜 发表于 2020-3-15 08:28
颜色的例子：

多谢蓝桥玄霜老师，刚才测试了一下，代码运行与设想还存在差别（判别效果图已上传1楼），麻烦你多多指教，非常感谢。
要求：区域（5：37行）内单行与双行时间对比（上与下的对比），双行的时间显示对应颜色。例：第5行的时间和第6行的时间对比，第5行、第6行的时间如有一个为空格，则第六行维持原色；如果第6行的时间大于第5行的时间，则第六行显示为淡黄色，如果第6行的时间小于第5行的时间，则第六行显示淡绿色。下面双行同理。

Sub lqxs()
Dim arr, i&, j%, s, x
Sheet1.Activate
[f5:q37].Interior.ColorIndex = 15
arr = [f5:q37]
For i = 1 To UBound(arr) - 1
    For j = 1 To UBound(arr, 2)
        s = arr(i, j): x = arr(i + 1, j)
        If s <> "" And x <> "" Then
           If x > s Then
              Cells(i + 5, j + 5).Interior.ColorIndex = 38
           ElseIf x < s Then
              Cells(i + 5, j + 5).Interior.ColorIndex = 10
            End If
        End If
    Next
Next
End Sub