Копирование строк заданное количество раз

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вопросы по Excel для Mac » Копирование строк заданное количество раз

Alexyaki

Дата: Среда, 10.05.2017, 17:42 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel для Mac

Помогите пожалуйста с макросом:
необходимо автоматизировыать копирование строк заданое количество раз (в столбце J)
Нашел одну старую тему с похожей задачей, но не получается приспособить к своему файлу. Буду благодарен за подробное разъяснение и макрос

К сообщению приложен файл: 0138646.xlsx (31.5 Kb)

Ответить

Pelena

Дата: Среда, 10.05.2017, 19:42 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19179

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

Замечаний: ±

Excel 365 & Mac Excel

Как-то так

К сообщению приложен файл: 0138646.xlsm (17.7 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Alexyaki

Дата: Четверг, 11.05.2017, 10:32 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel для Mac

Pelena, Огромное спасибо!!!

Ответить

Alexyaki

Дата: Четверг, 11.05.2017, 11:08 | Сообщение № 4

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel для Mac

Pelena, рано радовался.
Один файл сделал нормально а на втором выдает ошибку в строке [vba]

Код

Range("A" & i).Resize(, 30).Copy Range("A" & i + 1).Resize(Cells(i, 10) - 1, 30)

[/vba]:
пишет "ошибка метода Resize объекта Range

[vba]

Код

Sub InsRows()
    Dim lr&, i&
    Application.ScreenUpdating = False
    lr = Cells(Rows.Count, 10).End(xlUp).Row
    For i = lr To 2 Step -1
        Rows(i + 1 & ":" & i + Cells(i, 10) - 1).Insert shift:=xlDown
        Range("A" & i).Resize(, 30).Copy Range("A" & i + 1).Resize(Cells(i, 10) - 1, 30)
    Next i
    Application.ScreenUpdating = True
End Sub

[/vba]

Сообщение отредактировал Alexyaki - Четверг, 11.05.2017, 11:46

Ответить

Pelena

Дата: Четверг, 11.05.2017, 11:11 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 19179

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

Замечаний: ±

Excel 365 & Mac Excel

Alexyaki, оформите коды тегами с помощью кнопки # в режиме правки поста

Возможно, структура таблицы другая, я же Ваш файл не вижу.

Наверное, неправильно отрабатывает, когда количество равно 1.
Исправляйте замечание, будет ответ

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Alexyaki

Дата: Четверг, 11.05.2017, 11:30 | Сообщение № 6

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel для Mac

Ошибка вылезает если попадается строка со значением "1".
# тэги проставил, но не совсем понял это надо было делать или нет. Я не разбираюсь в этом. Сори если что не так

Сообщение отредактировал Alexyaki - Четверг, 11.05.2017, 11:42

Ответить

Pelena

Дата: Четверг, 11.05.2017, 11:50 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 19179

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

Замечаний: ±

Excel 365 & Mac Excel

Проверьте так
[vba]

Код

Sub InsRows()
    Dim lr&, i&
    Application.ScreenUpdating = False
    lr = Cells(Rows.Count, 10).End(xlUp).Row
    For i = lr To 2 Step -1
        If Cells(i, 10) > 1 Then
            Rows(i + 1 & ":" & i + Cells(i, 10) - 1).Insert shift:=xlDown
            Range("A" & i).Resize(, 30).Copy Range("A" & i + 1).Resize(Cells(i, 10) - 1, 30)
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Alexyaki

Дата: Четверг, 11.05.2017, 12:12 | Сообщение № 8

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel для Mac

Pelena, работает!
Большое спасибо

Ответить

Страница 1 из 1
1