Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Создание дубликата строки ниже самой себя всего листа - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание дубликата строки ниже самой себя всего листа (Макросы/Sub)
Создание дубликата строки ниже самой себя всего листа
Alex31 Дата: Понедельник, 07.01.2019, 16:01 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

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

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

Заранее всем Спасибо!!!

Автор - Alex31
Дата добавления - 07.01.2019 в 16:01
Alex31 Дата: Понедельник, 07.01.2019, 16:03 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
пример
К сообщению приложен файл: 123.xls(42.5 Kb)
 
Ответить
Сообщениепример

Автор - Alex31
Дата добавления - 07.01.2019 в 16:03
krosav4ig Дата: Понедельник, 07.01.2019, 17:21 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2080
Репутация: 871 ±
Замечаний: 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
 
Ответить
СообщениеЗдравствуйте.
Выделяете строки, жмете на кнопку
[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]

Автор - krosav4ig
Дата добавления - 07.01.2019 в 17:21
Alex31 Дата: Понедельник, 07.01.2019, 19:07 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

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


Сообщение отредактировал Pelena - Понедельник, 07.01.2019, 19:12
 
Ответить
СообщениеИзлишнее цитирование удалено
Спасибо все работает отличено!!!

Автор - Alex31
Дата добавления - 07.01.2019 в 19:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание дубликата строки ниже самой себя всего листа (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!