Sub
ImAktivenBlatt()
Dim
i
As
Long
i = 1
Do
If
((((
CDbl
(Cells(i, 1).Offset(1).Value) -
CDbl
(Cells(i, 1).Value)) ^ 2) < 1) _
And
(
Not
IsEmpty(Cells(i, 1).Value)) _
And
(Cells(i, 1).Offset(1).Value <> Cells(i, 1).Value)) =
True
Then
Cells(i, 1).Offset(1).Delete
i = i - 1
End
If
i = i + 1
Loop
While
i < Cells(Rows.Count, 1).
End
(xlUp).Row
End
Sub