VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel

Posted by obzor under VBA

Исходные данные следующие:
Имеется таблица разных значений (много строк много столбцов), необходимо выбрать диапазон из нескольких строк (допустим 100 строчек), в этот диапазон строчек необходимо вставить после каждой строки ещё 10 новых строчек (получится 1000 строчек), при этом необходимо скопировать в эти 10 новых строчек информацию из другого диапазона 10 выбранных строчек (скопированных).
То есть выбрал 10 строчек которые надо скопировать, нажал кнопку скопировать (они поместились в буфер обмена копирования), после этого выбираю диапазон строк, в который нужно вставить эти 10 строк после каждой строчки (допустим диапазон из 100 строчек). Нажимаю на кнопку выполнить макрос и он добавляет в выбранном диапазоне после каждой строчки 10 строк и копирует в них информацию из 10 скопированных строк.

Казанский

Sub Aa()
Dim rCopy As Range, c As Range, i&
  If Application.CutCopyMode <> xlCopy Then
    MsgBox "Скопируйте диапазон строк и запустите макрос снова", vbExclamation
    Exit Sub
  End If
  On Error GoTo 1
  Application.ScreenUpdating = False
  Set c = Selection.Rows(Selection.Rows.Count + 1)
  For i = Selection.Row + Selection.Rows.Count To Selection.Row + 1 Step -1
    Rows(i).Insert
    If rCopy Is Nothing Then Set rCopy = Range(Rows(i), Rows(c.Row - 1))
    rCopy.Copy
  Next
  Application.CutCopyMode = False
1 Application.ScreenUpdating = True
End Sub

Случайные статьи

• Скрыть форму приложения
• На bmp изображении есть тела черного цвета самой причудливой формы, надо узнать координаты пикселей, которые входят в тот или иной объект
• Выражение1: IIf DateDiff — работа с функцией DateDiff и функцией IIf
• Вычисление формулы с произведениями
• Рассылка. Выпуск 60.
• Преобразовать текст в поток и обратно
• Построчные способы загрузки информации в memo
• Как в MS Word удалить повторяющиеся строки?
• Дамп памяти чужого процесса
• Алгоритм перебора всех вариантов расположения букв в Edit