Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вставить определенное количество строк
 
#1
15.10.2018 14:09:17
Здравствуйте!
Помогите пожалуйста вставить определенное количество пустых строк под каждое наименование материала.
В столбце "А" например "Карандаш" в столбце "В" количество "5", значить под строку с "Карандашом" надо добавить 4 строки, чтобы в общим было 5 строк вместе с первым "Карандашом" .
 
 
 
#2
15.10.2018 14:22:28
Цитата
Kedr Iohan написал:
в столбце "В" количество "5", значить под строку с "Карандашом" надо добавить 4 строки, чтобы в общим было 5 строк вместе с первым "Карандашом"
А как быть с единицей? Я про "бумагу".
 
 
 
#3
15.10.2018 14:27:31
не добавлять строки, оставить ее одну
 
 
 
#4
15.10.2018 14:28:14
Тогда такой вариант:
Код
Sub Macro1()
Dim LastRow As Long, i As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = LastRow To 3 Step -1
        If Cells(i, 2) > 1 Then Rows(i + 1).Resize(Cells(i, 2) - 1).Insert
    Next
End Sub
 
 
 
#5
15.10.2018 14:51:57
Спасибо Большое!
 
 
 
#6
15.10.2018 15:10:19
Можно и без цитаты - зачем она тут?
А скажите мне - зачем вообще ставить единичку, если строки добавлять не нужно?
 
 
 
#7
16.10.2018 07:31:25
Да вы правы единичку можно не ставить.
Я тут столкнулась с проблемкой. Например для "Карандаша" нужно в общем 5 строк добавить, но изначально уже есть 2 строки "Карандаша", значит надо добавить еще 3 строки а не 4. Можно этот момент доработать?
 
 
 
#8
16.10.2018 09:05:43
Kedr Iohan, доработал код Юрия
Код
Sub Macro1()
Dim LastRow As Long, i As Long, k As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = LastRow To 3 Step -1
      k = Cells(i, 2) - WorksheetFunction.CountIf(Columns(1), Cells(i, 1))
      If k > 0 Then
        Rows(i + 1).Resize(k).Insert
        Cells(i + 1, 1).Resize(k).Value = Cells(i, 1) 'заполнение первого столбца - удалите строку, если не надо
      End If
    Next
End Sub
 
 
 
#9
16.10.2018 09:51:08
Казанский, красивое решение Я бы делал цикл для подсчёта, а так бы не додумался. Спасибо.
Не стреляйте в тапера - он играет как может.
 
 
 
Страницы: 1
Наверх