Страницы: 1
RSS
Автоматическое добавление строк в ЭКСЕЛЬ, Автоматическое добавление строк в ЭКСЕЛЬ
 
Форумчане, помогите чайнику-бухгалтеру, плиз. Есть таблица с данными, в определенной колонке (количество - залита желтым цветом)  указано количество. Необходимо автоматически добавить вниз строки, согласно указанному количеству. Эти строки должны быть идентичны строке, в которой указано это количество (колонка залита желтым цветом). Буду очень благодарна за помощь.
 
Вот можно этим макросом решить вашу задачу. Правда, логика тут насколько понял эту задачу из вашего объяснения.
Код
Sub ВставкаСтрок()
Dim КолПерСтрок, R, k, n As Integer
КолПерСтрок = ActiveSheet.UsedRange.Rows.Count
R = 2
For k = 1 To КолПерСтрок
    n = Cells(R, 9) - 1
    If n = 0 Then n = 1
        For i = 1 To n
        Rows(R + 1).Insert
        Cells(R, 1).Resize(1, 11).Copy Destination:=Cells(R + 1, 1)
        'Cells(R + 1, 9).ClearContents      Если нужно удалять цифры в колонке колличества, _
        то активируйте эту строку, перенеся знак апострофа к началу этого текста.
        Next i
    R = R + n + 1
Next k
End Sub
Изменено: Дорожный - 18.05.2017 18:32:23
 
Доброго времени суток!
скажите пожалуйста как в моем случае сделать автоматически удаляемые или добавляемые строки в примере, если например по выпадающему списку на листах гр1 или гр2 нужно добавить только две строки данных а отображалось бы три (+ одна пустая), и в случае добавления в ней данных по выпадающему списку автоматически добавлялась еще строка., но при этом данные под таблицей "спускались ниже".
Изменено: Jystas - 28.06.2018 12:47:08
Страницы: 1
Наверх