Копирование таблицы с удалением строк

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

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

Копирование таблицы с удалением строк (Макросы/Sub)

Garra

Дата: Понедельник, 24.02.2020, 12:31 | Сообщение № 1

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

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

Сообщений: 2

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

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

Excel 2019

Добрый день. Нужна помощь!
Мне необходимо скопировать строки с соблюдение последовательности, определенное количество раз в рамках того же столбца (вложение).
В таблице справа указанное цветом это сколько раз должна будет продублироваться строка.
По сути необходимо чтобы копировался блок с удалением строк по исчерпанию счетного остатка и разделением блока пробелом.
И возможно ли при копировании этих строк в отдельном столбце прописывался порядковый номер скопированных строк.

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

Ответить

Kuzmich

Дата: Вторник, 25.02.2020, 11:17 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

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

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

Excel 2003

Посмотрите здесь https://www.planetaexcel.ru/forum....=125663
А дальше много вопросов

Цитата

копировался блок с удалением строк по исчерпанию счетного остатка

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

Цитата

разделением блока пробелом.

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

Ответить

Garra

Дата: Четверг, 27.02.2020, 00:11 | Сообщение № 3

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

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

Сообщений: 2

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

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

Excel 2019

Цитата Kuzmich, 25.02.2020 в 11:17, в сообщении № 2 ()

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

Справа количество строк необходимое

Цитата Kuzmich, 25.02.2020 в 11:17, в сообщении № 2 ()

Может вы имеете в виду пустой строкой?

Да пустая строка

Цитата Kuzmich, 25.02.2020 в 11:17, в сообщении № 2 ()

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

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

Ответить

InExSu

Дата: Четверг, 27.02.2020, 20:48 | Сообщение № 4

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

Ранг: Ветеран

Сообщений: 648

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

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

Excel 2010, 365

Привет!
Для начала:
[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 php, Google Apps Script, VBA Excel Windows/Mac

Ответить

Копирование таблицы с удалением строк (Макросы/Sub)

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