Создание дубликата строки ниже самой себя всего листа

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

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

Создание дубликата строки ниже самой себя всего листа (Макросы/Sub)

Alex31

Дата: Понедельник, 07.01.2019, 16:01 | Сообщение № 1

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

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

Сообщений: 7

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

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

Excel 2016

Добрый день нужна помощь есть документ с 1000 строк и более
нужно сделать чтобы каждая строка в текущем листе была скопирована ниже самой себя
только что бы при копировании в столбце "6" значение Пр.Л менялось на Пр.П
Заранее всем Спасибо!!!

Ответить

Alex31

Дата: Понедельник, 07.01.2019, 16:03 | Сообщение № 2

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

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

Сообщений: 7

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

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

Excel 2016

пример

К сообщению приложен файл: 123.xls (42.5 Kb)

Ответить

krosav4ig

Дата: Понедельник, 07.01.2019, 17:21 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

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

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

Excel 2007,2010,2013

Здравствуйте.
Выделяете строки, жмете на кнопку
[vba]

Код

Sub CopyRows()
    Dim I As Long
    With Selection.Rows
        For I = .Count To 1 Step -1
            With .Item(I)
                .Offset(1).Insert xlDown, 0
                .AutoFill .Resize(2), 1
                .Cells(2, 6) = "Пр.П"
            End With
        Next
    End With
End Sub

[/vba]

К сообщению приложен файл: 5253194.xls (38.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Alex31

Дата: Понедельник, 07.01.2019, 19:07 | Сообщение № 4

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

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

Сообщений: 7

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

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

Excel 2016

Излишнее цитирование удалено
Спасибо все работает отличено!!!

Сообщение отредактировал Pelena - Понедельник, 07.01.2019, 19:12

Ответить

Создание дубликата строки ниже самой себя всего листа (Макросы/Sub)

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