有时间请帮我写一个Excel的宏

假设在A1:J24区域内，使用以下宏，符合条件的三个单元格会变成蓝色提示
Sub test()
Dim r666 As New Collection
Dim c666 As New Collection
Dim r55 As New Collection
Dim c55 As New Collection
Dim r108 As New Collection
Dim c108 As New Collection
Set ra