Дублирование массива строк

[Ruden]

Привет, коллеги!
Задача такая:
Надо дублировать массив строк в Excel

Пример:
Столбцы: А B C D
Строка 1 Город Марка Модель Запчасть
Строка 2 Воронеж ВАЗ 2111 Инжектор
Строка 3 Липецк ВАЗ 2112 Фара
Строка 4 Белгород ВАЗ 2114 Бампер
Строка 5 Брянск Ford 3 Кузов

Надо продолжить таблицу из 150 городов и на каждый город по 995 строк с разными запчастями.

Как это сделать?

[EducatedFool]

Из вашего описания мало что понятно.

Прикрепите к сообщению файл Excel, в котором покажите пример исходной и конечной таблиц.

[Ruden]

Да, согласен. Описание проблемы не фонтан ) Наверное сказалось 8 часовое мучение на поиском ее решения. Попробую проще...

Есть 995 строк (таблица из 10 колонок). Эти строки надо дублировать 150 раз. Простым копи пастом можно потратить часа 3. Необходим какой-нибудь инструмент автоматизации вот на его создание можно потратить 3 часа, ибо в будущем эта операция может понадобиться многократно.

[VictorM]

Эти строки надо дублировать 150 раз.

дублировать куда?
Ниже, вправо, на новый лист, а может быть вообще в другой файл?
И прикрепите все же файлик, не обязательно даже все 995 строк.
лень Вашу таблицу набирать

[Казанский]

> Необходим какой-нибудь инструмент автоматизации

Скорее необходимо оптимизировать организацию данных
Макрос копирует выделенный диапазон ниже него 150 раз.
Только значения, без форматирования:

Sub bb()
Dim i&, v()
v = Selection.Value
For i = 1 To 150
    Selection.Offset(UBound(v) * i) = v
Next
End Sub

[VictorM]

То же самое, с форматированием

Sub tt()
    [a1:j995].Copy
    For i = 1 To 150
        Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
        ActiveSheet.Paste
    Next i
End Sub

(без Select не получилось)

[Казанский]

Без селекта

Sub bb1()
Dim i&, v As Range, r&
Set v = Selection
r = Selection.Rows.Count
For i = 1 To 150
    v.Copy v.Offset(r * i)
Next
End Sub

[VictorM]

Без селекта

Спасибо
Сохраню себе в копилку

[Ruden]

Оу, спасибо всем. Прикрепить не получится, ибо файлик в офисе, только в понедельник.
Дублировать надо ниже в тот же лист.

[VictorM]

Дублировать надо ниже в тот же лист.

В таком случае задача решена