Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » sergex
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Как скопировать строку заданное число раз, указанное в ячейке данной строки
 
#
04.05.2013 21:20:53
Спасибо! Всё заработало!
 
Перейти    
Как скопировать строку заданное число раз, указанное в ячейке данной строки
 
#
04.05.2013 20:22:48
Уже почти получилось)
Код вышел такой
Код
Sub Копирование()
 Rows(ActiveCell.Row).Resize(ActiveCell - 1).Insert
End Sub


Но есть последняя проблемка, вставляет нужное количество в нужное место, но не активную строку, а пустую..
 
Перейти    
Как скопировать строку заданное число раз, указанное в ячейке данной строки
 
#
04.05.2013 19:44:29
Попробовал другой код:
Код

Sub Копирование()
 Dim i&
    Application.ScreenUpdating = False
    For i = 1 To (ActiveCell - 1)
        Rows(ActiveCell.Row).Copy Cells(Rows.Count, 1).End(xlUp)(2)
    Next
    Application.ScreenUpdating = True


End Sub


Всё аналогично присходит... Т.е. при выделении очередной ячейки (например B5) вставка строк происходит не начиная со следующей строки (т.е. с 6-й), а начиная со строки, котороя является последней заполненной в файле.

Т.е. исходные данные такие:
позицияраз 4
позициядва 1
позициятри 6

Хочу получить:
позицияраз 4
позицияраз 4
позицияраз 4
позицияраз 4
позициядва 1
позициятри 6
позициятри 6
позициятри 6
позициятри 6
позициятри 6
позициятри 6
 
Перейти    
Как скопировать строку заданное число раз, указанное в ячейке данной строки
 
#
04.05.2013 14:41:42
Спасибо, нашёл http://planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=45432&MID=378140#message378140
И даже написал свой первый макрос

Код
Sub Копирование()
Rows(ActiveCell.Row).Copy
Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).Resize(ActiveCell - 1, 1).Insert Shift:=xlDown
End Sub


Но не могу разобраться со смещением при копировании. Требуется чтобы при выделении ячейки с числом ниже добавлялись строки в количестве это число минус один, и добавлялись они сразу под этой строкой. А сейчас идут непонятные смещения вниз... А так вроде всё работает.
 
Перейти    
Как скопировать строку заданное число раз, указанное в ячейке данной строки
 
#
04.05.2013 11:25:48
Здраствуйте. Подскажите как скопировать строку заданное число раз, указанное в одной из ячеек данной строки? Т.е. имеется большой файл с названиями позиций и их количеством, а нужно пребразовать этот файл, чтобы если позиция имеет количество более единицы, то эта строка превращалась в соответствующее количество строк и количеством единица для каждой строки. В приложении привёл пример, что имею ввиду.
 
Перейти    
Страницы: 1
Наверх