Выявление нарушения последовательности чисел

[stasbz]

Возникла необходимость в следующем макросе:
Столбец A содержит последовательные числа. Эта последовательность начинается с 1 и может заканчиваться 10 или 11 .. 12 .. 17 .. 24 , после чего опять следует 1 и после чего последовательность повторяется. Например: 1 2 3 4 5 6 7 8 9 10 1 2 3 4 5 6 7 8 9 10 11 1 2 3 4 5 6 7 8 9 10 12 13 1 2 3 ..... Вместе с тем, каждая из последовательностей (1..10) имеет свой номер в графе B.
Выглядит это так.
A B
1 345
2 345
3 345
1 346
2 346
3 346
.. ...
1 789
2 789
3 789
. 789
7 789
8 789
1 790
. 790
6 790
Необходимо выявить случаи когда последовательность чисел в столбце A нарушается внутри этих подряд идущих рядов 1...10 1....11 1...13 1..., например: 1 2 3 5 6 7 8 9 10 1 2 3 4 5 7 8 9 . В данном случае после 3 пропущена 4, и после 5 пропущена 6.
Число 1 тоже может быть пропущено.
Надо как то обозначить эти места, например заменой числа, после которого пропущено число, символом & или каким то другим способом. это уже не суть важно.

[tolikman]

dim i as integer
i=2 'индекс ВТОРОЙ строки диапазона
with activesheet
do while .cells(i,1)<>empty
if .cells(i,1)-1<>.cells(i-1,1) then .cells(i,1)="&" & .cells(i,1)
i=i+1
loop

NOTE: если в предидущей клетке цифра меньше чем на единицу то текущей клетка дописывается знак & перед числом.
или таким макаром можно воткнуть пустую строку перед ячейкой, значение в которой больше, чем на единицу, значения предидущей(верхней) ячейки.

dim i as integer
i=2 'индекс ВТОРОЙ строки диапазона
with activesheet
do while .cells(i,1)<>empty
if .cells(i,1)-1<>.cells(i-1,1) then .rows(i & ":" & i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
i=i+1
loop

[EducatedFool]

Можно воспользоваться условным форматированием, чтобы подсветить числа, перед которыми имеются пропуски.

В условном форматировании используется формула =И(RC-R[-1]C<>1;RC<>1)

Пример во вложении: