![](http://tiebapic.baidu.com/forum/w%3D580/sign=18fe8e7cec773912c4268569c81b8675/8dccfbedab64034f960d0ac7eac3793108551de3.jpg?tbpicau=2024-07-14-05_7801b2b7d82c6d80f90fa94b6a3c8528)
'次序不太结果可能会不同(可能会有覆盖)
Option Explicit
Sub abc()
Dim i, j, k, a, c
With [a1].CurrentRegion
a = .Value
.Interior.ColorIndex = xlNone
End With
For i = 1 To UBound(a) - 1
For j = 1 To UBound(a, 2)
For k = 1 To UBound(a, 2)
If Abs(a(i, j) - a(i + 1, k)) = 1 Then
If i Mod 2 Then c = vbGreen Else c = vbRed
Cells(i, j).Interior.Color = c
Cells(i + 1, k).Interior.Color = c
End If
Next
Next
Next
End Sub