Пронумеровка строк по группам через интервал

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Пронумеровка строк по группам через интервал - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Пронумеровка строк по группам через интервал (Формулы)

Пронумеровка строк по группам через интервал

AmsterDam

Дата: Пятница, 21.02.2014, 14:14 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 41

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Здравствуйте.
Нужно пронумеровать строки по группам, то есть
1 Яблоко
1 Груша
1 Яблоко
2 Груша
2 Яблоко
2 Груша

Через каждые 40 строк ставить цифру 1+i

Имеется следующий макрос
[vba]

Код

Range("A10").Select
ActiveCell.FormulaR1C1 = "1"
Selection.AutoFill Destination:=Range("A10:A40"), Type:=xlFillDefault
Range("A10:A40").Select
Range("A41").Select
ActiveCell.FormulaR1C1 = "2"
Range("A41").Select
Selection.AutoFill Destination:=Range("A41:A80"), Type:=xlFillDefault
Range("A81").Select
ActiveCell.FormulaR1C1 = "3"
Selection.AutoFill Destination:=Range("A81:A120"), Type:=xlFillDefault
Range("A121").Select

[/vba]
И так далее
Как этот макрос упростить?
максимальное количество строк 3000