помогите преобразовать строки из листа 1 в столбец на листе 2  
Sub t_spisok()  
 Dim a As Integer, b As Integer, RowSech As Integer, LastRowSech As Integer  
  LastRowSech = Worksheets("Лист1").Cells(Rows.Count, 4).End(xlUp).Row  
  RowSech = 0  
  For a = 2 To LastRowSech  
       RowSech = dhLastRowUsedCell(Rows(a)) + RowSech  
       For b = 1 To dhLastRowUsedCell(Rows(a))  
           Worksheets("Лист2").Range(Cells(a + b - 2, 1)).Value = Worksheets("Лист1").Range(Cells(a, 3 + b)).Value  
           Worksheets("Лист2").Range(Cells(a + b - 2, 2)).Value = Worksheets("Лист1").Range(Cells(a, 2)).Value  
       Next  
  Next  
End Sub  
 
Помогите разобраться с ошибкой

В исходных данных программа выдает данные в виде:  
2 1 Name="Балка_Б2_сечение_1"  : 167-182 740 742 r 751 3  753 755 r 764 3  841 r 847 2 /  
2 1 Name="Балка_Б2_сечение_3"  : 167-182 741 r 750 3  752 754 r 763 3  765 842 r 848 2 /  
 
средствами Plex я могу выделить интересующую меня часть записи а именно выделить назавание групп:  
Балка_Б2_сечение_1  
Балка_Б2_сечение_3  
 
и список элементов входящих в этоти группы, соответственно:  
167-182 740 742 r 751 3  753 755 r 764 3  841 r 847 2    
167-182 741 r 750 3  752 754 r 763 3  765 842 r 848 2    
 
помогите заменить разделители на промежуточные значения  
1) тип 1 "-"  
167-182 на  
167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182  
2) тип 2 "r"  
742 r 751 3 (где 742 начало, 751 окончание , 3 шаг), другими словами  
742 745 748 751  
 
Помогите решить задачку, буду рад любому предложению

Друзья подскажите идею в реализации моей задачи.  
"поиска экстремумов в диапазонах с одноименным "Типом унификации"    
 
конкретнее на основании листа 1 выписать экстремумы для каждого номера (65, 64 и т.д.) в лист2.  
 
(До этого пользовался фильтрами и промежуточными.итогами, но когда надо проанализировать около сотни значений, становиться трудоемка.)  
 
файл формата 2007.  
Заранее благодарен за предложения

Друзья подскажите пожалуйста, как формулами, получить подобное преобразование массива  
1 2 3  
4 5 6  
4 8 9  
10 11 12  
13 14 111  
 
в столбец (с соответствующими ссылками)  
1  
2  
3  
4  
5  
6  
4  
8  
9  
10  
11  
12  
13  
14  
111  
 
Вопрос: если добавить еще строки или столбец,

Доброго времени суток.  
Я решил задачку с поиском индексов перед занчениями. Но понимаю что моё решение несраниться с решение ГУРУ с планеты  
 
в кратце :  
есть формула  L1+0.9*L3-0.9*L4+0.9*L6-0.9*L7+0.9*L9-0.9*L10+0.9*L12-0.9*L13+0.9*L15-0.9*L16+0.95*L18-0.9*L19  
 
неоходимо напротив L1...L19 вывести соответствующий коэф. из формулы  
L1 1,00  
L2 0,00  
L3 0,90  
L4 -0,90  
L5 0,00  
L6 0,90  
L7 -0,90  
L8 0,00  
L9 0,90  
L10 -0,90  
L11 0,95  
L12 0,00  
L13 -0,90  
L14 0,00  
L15 0,90  
L16 -0,90  
L17 0,00  
L18 0,95  
L19 -0,90  
файл прилогается (2007)

По роду профессии (конструктор) приходится анализировать результаты расчета из  программы, которая выдает их в Excelе (например, файл с названием "Связи.xls")  
 
Поскольку количество строк каждый раз разное, изначально забил себе шаблонный файл на 20 000 строк, потом прокачал его по необходимости до 50 000 строк.  
НО размер файлов просто нереальный (по 50 Мбайт) :)  
 
1 - "Связи" исходный файл полученный и сохранен мною.  
2 - "шаблон на сервере или флешке V3.2" - файл лежит на сервере или флешке с путем по умолчанию C:\Users\Asilac\Desktop\РСУ  
3 - "Связи_анализ" - файл "Связи" после выполнения макроса (название будет тоже "Связи", ведь это в этом же файле все происходить)  
 
Сервер для того что бы не я один пользовался шаблоном, но если файл-шаблон будет лежать на сервере я смогу её модернизировать-подправить, и при запуске макроса, будет взята новая версия шаблона.  
порою приходится за 1 расчет прогонять по 40 полученных файлов!  
   
Может я не прав, просто что в голову пришло с модернизацией шаблона (то по оформления, то по формуле подкорректировать надо)