Использование только формул, без VBA:
В столбце B:
1 | 1
2 | 1
3 | =IF(B2-MAX(B$1:B1)<1,B2+1,1)
Затем заполните эту формулу вниз
Если вы хотите, чтобы только одна формула стояла на еесамостоятельно (не ссылаясь на другие ячейки), вы можете оценить последовательность треугольников с термином n = ROW () с помощью этой более внушительной формулы:
=IFERROR(ROW() - COMBIN(INT((1+SQRT(8*ROW()))/2), 2),1)
(часть IFERROR обрабатывает только первуютермин, который пытается оценить COMBIN (1,2))