Форумчане, добрый день!

Пролистал темы с макросами копирования, но не нашел нужный.
Суть задачи следующая - часто необходимо один и тот же шаблон скопировать разное кол-во раз вниз по листу разное кол-во раз. Иногда 10, иногда 50-100 раз, копирую вручную.

Пример: диапазон строк 2-25 необходимо копировать на строку 26, затем еще раз и еще, пока не создам нужное кол-во шаблонов.

Есть ли какой макрос, чтобы автоматически можно было вставлять нужное кол-во шаблонов, задавая кол-во (например 10, 15, 50 и т.п.)?

Заранее спасибо за помощь.

Всем привет!

Подскажите, каким образом в Excel можно из диапазона вида 1900-1999 преобразовать в строку/столбец вида 1900, 1901, 1902 ... 1999.
Для одного такого диапазона можно воспользоваться транспонированием, но таких диапазонов около десятка тысяч и каждый разной длинны.

На сайте я нашел UDF:
Function Diapazon(cell As String) As StringDim iTemp As String
Dim iBegin As Integer
Dim iEnd As Integer
 iBegin = Split(cell, "-")(0)
 iEnd = Split(cell, "-")(1)
  Do
    iTemp = iTemp & CStr(iBegin) & ";"
    iBegin = iBegin + 1
  Loop While iBegin <> iEnd
    Diapazon = iTemp & iEnd
End Function

Но, он почему то не работает (либо я не умею пользоваться функциями пользователей).

добрый день, помогите пожалуйста.  
 
Сделал тут файл для работы, чтобы онлайн наблюдать за поступающими звонками (специфика работы). На основе ODBC драйвера при помощи sql, который каждые 15 минут импортирует в Excel данные из другой программы по звонкам, на "Лист3", на "Листе1" на основе таблиц, которые находятся на "Листе3" создал сводные таблице на "Листе1", с которых на "Листе2" отображаются диаграммы и динамические данные. Так вот, логика в том, что я также добавил на "Лист3" VBA запрос, который по логике после обновления данных на "Листе3" обновляет данные на "Листе1", т.е. обновления сводных таблиц происходит каждые 15 минут. Но проблема в следующем, если этот файл Excel открыт в активном окне - всё обновляется хорошо, проблем не возникает. Но если данный файл находится в неактивном окне и открыты другие отчеты Excel он выдает ошибку "time error 9: subscript out of range". Я так понимаю, что он пытается ссылаться на активный Excel, данных не находит, которые нужно обновить и ругается, не обновляя данные. Подскажите, пожалуйста, как мне изменить VBA запрос, либо каким образом вообще можно решить данную проблему?!  
 
Запрос строю такой (в книге всего 3 листа: "Лист1", "Лист2", "Лист3"):  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
For Each PvTable In Sheets("Лист1").PivotTables  
PvTable.PivotCache.Refresh  
Next  
End Sub  
 
 
Сам файл я также прилагаю, чтобы можно было посмотреть VBA запрос, находится на "Листе3".  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>