Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Автоматическое заполнение ячеек, Как автоматически заполнить ячейки с увеличением числа через каждые 18 ячеек
 
#1
27.06.2019 18:50:44

Добрый день! Подскажите пожалуйста, как автоматически заполнить ячейки столбца, так что бы нумерация генерилась с увеличение +1 к числу, после каждой 18-й ячейки?

Например:

 

100519

 

100519

 

100519

 

100519

 

100519

 

100519

 

100519

 

100519

 

100519

 

100519

 

100519

 

100519

 

100519

 

100519

 

100519

 

100519

 

100519

 

100519

 

100520

 

100520

 

100520

 

100520

 

100520

 

100520

 

100520

 

100520

 

100520

 

100520

 

100520

 

100520

 

100520

 

100520

 

100520

 

100520

 

100520

 

100520

И далее…
 
 
 
#2
27.06.2019 19:57:33
Можно макросом
Код
Sub malochkin()
Dim arr(), iBlock&, iCount&, iUb&, I&, J&, N&
iBlock = 3      'количество блоков
iCount = 18     'количество элементов в блоке
iUb = iBlock * iCount - 1
ReDim arr(0 To iUb, 0 To 0)
For I = 0 To iBlock - 1
    For J = 1 To iCount
        arr(N, 0) = 100519 + I: N = N + 1
    Next
Next
Range("A1").Resize(N, 1) = arr
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
27.06.2019 20:44:21
Формула. Впишите в ячейку и протяните .вниз.
Код
=$A$1+TRUNC(ROWS($2:2)/18)
Изменено: jakim - 27.06.2019 20:46:48
 
 
 
#4
28.06.2019 13:15:41
Sanja - спасибо за макрос! Все работает!!!
 
 
 
Страницы: 1
Наверх