Все работает

помогите преобразовать строки из листа 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  
 
Помогите разобраться с ошибкой

откорректировал размер

сохранил в формате 2003  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Доброго времени суток  
 
Прокачал ваш макрос, но теперь не могу продвинуться, помогите выйти из ступора,  
 
Во вложении я выделил цветом (условным форматированием) ячейки которые я бы хотел получить по итогу (макросом), остальные мне не нужны.  
 
 
пробовал писать поиск, но на него ругается.  
 
Ооо, а может удалить, только отформатированные ячейки со сдвигом влево (если форматирование сделать на оборот, выделив ячейки которые не нужны)? придумал пока писал  
 
Подскажите пожалуйста гуру

Вроде как финиш  
 
посмотрите пожалуйста предварительную очистку массива  
 
почему-то выделяет все    
LastRowSech = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row ' поиск последней заполненой строки во 2-ом столбце  
B = 0  
For a = 1 To LastRowSech  
LastColumnSech = ActiveSheet.Cells(a, Columns.Count).End(xlUp).Column ' поиск последней заполненого столбца  
If B < LastColumnSech Then  
B = LastColumnSech  
End If  
Next  
'ActiveSheet.Range(Cells(2, 2), Cells(LastRowSech, LastColumnSech)).Select

все заработало, работаю напильником, оба варианта хороши, сделаю "солянку" выложу  
 
to anvg  
подскажите зачем в начале  написано    
Option Explicit  
Private pRegExp As Object  
 
перевидите для дилетанта пожалуйста смысл

anvg, вам спасибо, мне не просто надо убрать из текста раздели, а заменить их на соответствующие значения

Hugo? а можно как для дилетанта?

ber$erk, Ругается на функцию left  
"can't find project or library"

На функцию left

Ругается    
"can't find project or library"    
Может нету еще модуля?

Спасибо за оперативность, буду разбираться

В исходных данных программа выдает данные в виде:  
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  
 
Помогите решить задачку, буду рад любому предложению

помоему функция VLOOKUP3    
http://www.planetaexcel.ru/plex_features.php#VLOOKUP3 делает эту же опирацию?

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

Sub pp()  
Dim FileName As String  
Dim i As Long  
' Создаём текстовый файл в папке с исходником  
FileName = ThisWorkbook.Path & "\АСПФ" & Format(Now, "_yyyy/mm/dd_hh/mm"".txt""")  
Open FileName For Output As #1  
' Копируем подряд все строки (2000 строк)  
For i = 1 To 2000  
' печатаем в текстовый файл все непустые строки входящие в заданный диапазон  
If Cells(i, 1) <> "" Then  
Print #1, Cells(i, 1).Value  
End If  
Next i  
Close #1  
End Sub

{quote}{login=slade}{date=08.11.2010 12:54}{thema=The_Prist спасибо}{post}Супер, так запарили ковычки.  
Подскажите при экспортировании в текстовый файл пустые строчки пропускались??{/post}{/quote}  
Немного мутно написал  
у меня в листе есть пустые строчки, можно ли при экспортировании их пропускать ?

Супер, так запарили ковычки.  
Подскажите при экспортировании в текстовый файл пустые строчки пропускались??

{quote}{login=kim}{date=02.11.2010 09:51}{thema=}{post}=ИНДЕКС($A$2:$C$14;СТРОКА(A3)/3;ОСТАТ(СТРОКА(A3);3)+1){/post}{/quote}  
 
Дзякуй вялікі

Друзья подскажите пожалуйста, как формулами, получить подобное преобразование массива  
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  
 
Вопрос: если добавить еще строки или столбец,

буду хоть знать как оно называется "бинарное отрицание"  
спасибо Юрий М

очень интересное решение,    
для тюнига было бы интересно иметь в ячейка B3 глобальную  галочку , что бы можно было (как в фильтре) все очистить/отметить, а потом единичных убрать/добавить

DV подскажите пож. где можно почитать про сочетание "--" из вашей формулы?

{quote}{login=DV}{date=07.07.2010 07:00}{thema=}{post}Если самостоятельно определить первый коэффициент и начинать с С5, то можно так:  
С5:  
=ЕСЛИ(ЕОШ(ПОИСК(A5;A$1;1));0;--ПОДСТАВИТЬ(ПСТР(A$1;ПОИСК(A5;A$1;1)-5;4);".";",")){/post}{/quote}  
спасибо, единственное если перед значением нечего нету (то есть 1) выдаёт #ЗНАЧ!  
 
немного причесал файл

Доброго времени суток.  
Я решил задачку с поиском индексов перед занчениями. Но понимаю что моё решение несраниться с решение ГУРУ с планеты  
 
в кратце :  
есть формула  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)

http://forum.dwg.ru/showpost.php?p=224568&postcount=1  
Функция записывает формулу указанной ячейки в числах с подстановкой (в другой ячейке разумеется).

Igor67, спасибо последний вариант работает на 30 000 строк, без проблем.  
 
Немного прокачали файл с коллегой (для инетереса),  
   MsgBox "Информация собрана." & vbCrLf & "Время импорта: " & strTime_Import, vbInformation, "Конец"

новый вариант сейчас посмотрю, но установил причину (выделеная область слишком велика.)  
 
Это из-за условного форматирования в ячейках (8000 строк видимо предел)  
После удаления из шаблона условного форматирования в ячейках, все работает как часики (приверяли и на 50 000 строк).

Самое интерестное, что до 8193 строки сроботывает нормально.  
Может это ограничение самого екселя