Dim
begZ
As
Integer
, endZ
As
Integer
, sp
As
Integer
, n
As
Integer
Dim
A, B, C, D
sp = 1: begZ = 2: endZ = 40
For
n = begZ
To
endZ - 3
A = Cells(n, sp).Value
B = Cells(n, sp).Offset(1, 0).Value
C = Cells(n, sp).Offset(2, 0).Value
D = Cells(n, sp).Offset(3, 0).Value
If
A + 1 = B
And
A + 1 = C
And
A = D
Then
Cells(n, sp).Offset(1, 0).Value = A
Cells(n, sp).Offset(2, 0).Value = A
n = n + 2
End
If
Next
n
End
Sub