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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование таблицы с удалением строк - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование таблицы с удалением строк (Макросы/Sub)
Копирование таблицы с удалением строк
Garra Дата: Понедельник, 24.02.2020, 12:31 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Добрый день. Нужна помощь!
Мне необходимо скопировать строки с соблюдение последовательности, определенное количество раз в рамках того же столбца (вложение).
В таблице справа указанное цветом это сколько раз должна будет продублироваться строка.
По сути необходимо чтобы копировался блок с удалением строк по исчерпанию счетного остатка и разделением блока пробелом.
И возможно ли при копировании этих строк в отдельном столбце прописывался порядковый номер скопированных строк.
К сообщению приложен файл: 9990538.xlsx(12.0 Kb)
 
Ответить
СообщениеДобрый день. Нужна помощь!
Мне необходимо скопировать строки с соблюдение последовательности, определенное количество раз в рамках того же столбца (вложение).
В таблице справа указанное цветом это сколько раз должна будет продублироваться строка.
По сути необходимо чтобы копировался блок с удалением строк по исчерпанию счетного остатка и разделением блока пробелом.
И возможно ли при копировании этих строк в отдельном столбце прописывался порядковый номер скопированных строк.

Автор - Garra
Дата добавления - 24.02.2020 в 12:31
Kuzmich Дата: Вторник, 25.02.2020, 11:17 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 682
Репутация: 150 ±
Замечаний: 0% ±

Excel 2003
Посмотрите здесь https://www.planetaexcel.ru/forum....=125663
А дальше много вопросов
Цитата
копировался блок с удалением строк по исчерпанию счетного остатка

Что такое счетный остаток?
Цитата
разделением блока пробелом.

Может вы имеете в виду пустой строкой?
Зачем строку с Группа 1Н копировать 20 раз?
Что при этом делать с объединенными ячейками в столбцах А:С?
 
Ответить
СообщениеПосмотрите здесь https://www.planetaexcel.ru/forum....=125663
А дальше много вопросов
Цитата
копировался блок с удалением строк по исчерпанию счетного остатка

Что такое счетный остаток?
Цитата
разделением блока пробелом.

Может вы имеете в виду пустой строкой?
Зачем строку с Группа 1Н копировать 20 раз?
Что при этом делать с объединенными ячейками в столбцах А:С?

Автор - Kuzmich
Дата добавления - 25.02.2020 в 11:17
Garra Дата: Четверг, 27.02.2020, 00:11 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Что такое счетный остаток?

Справа количество строк необходимое
Может вы имеете в виду пустой строкой?

Да пустая строка
Зачем строку с Группа 1Н копировать 20 раз?
Что при этом делать с объединенными ячейками в столбцах А:С?

Нужно чтобы строки копировали строго в той же последовательности.
Объединенные не будут, забыл убрать
 
Ответить
Сообщение
Что такое счетный остаток?

Справа количество строк необходимое
Может вы имеете в виду пустой строкой?

Да пустая строка
Зачем строку с Группа 1Н копировать 20 раз?
Что при этом делать с объединенными ячейками в столбцах А:С?

Нужно чтобы строки копировали строго в той же последовательности.
Объединенные не будут, забыл убрать

Автор - Garra
Дата добавления - 27.02.2020 в 00:11
InExSu Дата: Четверг, 27.02.2020, 20:48 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 644
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010
Привет!
Для начала:
[vba]
Код
Sub Row_Entire_Copy( _
  row_rng As Range, _
  counter As Long)
' вставить строку counter раз

  Dim _
    row_Start As Long, _
    row_End__ As Long

  row_Start = row_rng.Row
  row_End__ = row_rng.Row + counter

  With row_rng.Parent
    .Rows(row_Start).EntireRow.Copy
    .Rows(row_Start + 1 & ":" & row_End__).Insert Shift:=xlDown
  End With

  Application.CutCopyMode = False

End Sub
[/vba]


Разработчик Битрикс24, Google Apps Script, VBA
 
Ответить
СообщениеПривет!
Для начала:
[vba]
Код
Sub Row_Entire_Copy( _
  row_rng As Range, _
  counter As Long)
' вставить строку counter раз

  Dim _
    row_Start As Long, _
    row_End__ As Long

  row_Start = row_rng.Row
  row_End__ = row_rng.Row + counter

  With row_rng.Parent
    .Rows(row_Start).EntireRow.Copy
    .Rows(row_Start + 1 & ":" & row_End__).Insert Shift:=xlDown
  End With

  Application.CutCopyMode = False

End Sub
[/vba]

Автор - InExSu
Дата добавления - 27.02.2020 в 20:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование таблицы с удалением строк (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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