'次序不太结果可能会不同(可能会有覆盖)
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