Здравствуйте,

У меня есть работающий макрос, который делает подстановку данных, а именно ищет данные Знач 1, Знач 2, ... в файле All_Tyre_Types и подставляет их напротив соответствующего значения в файл Tyre (см. результат в поле с зеленой заливкой)
Нужен второй макрос, который делает то же самое, но ищет значение не в столбцах Знач 1, Знач 2, а в первом столбце (1011). Соответственно ожидаемый "результат 2" выделен желтой заливкой.
Фактически из двумерного массива нужно сделать одномерный, но у меня не получается.
Заранее благодарю

У меня есть такая идея:

Вместо листа Marking сделать несколько листов с именами BARUM, HANKOOK, и т.д.
Поиск индекса производить не по всем листам, а по листу с нужным именем (это имя = Текст до первого подчеркивания в колонке Значен 1). Так можно?

Можно ли оптимизировать/ускорить работу макроса?
При большом количестве данных (например 20тыс.) в файле Marking_Types, макрос работает довольно медленно.
Мне достаточно искать значения из одного столбца, хотя в макросе предусмотрено 5 столбцов.
Это ускорит работу? или если эти столбцы пустые - то не повлияет?

vikttur, тоже норм. вариант. Спасибо
И спасибо ikki за решение моей проблемы

как это проще сделать? На самом деле в этом конкретном слечае меня интересуют только "текстовые единички". Как сделать из них не текстовые? И вообще странно, что они текстовые, потому что если рядом я добавлю столбей с формулой и напишу прибавить к этому числу единичку, то формула работает с этой единичкой как с нормальным числом

ikki, в таком случае если некоторые "единички" будут числами, а не как текст, то их фильтр не спрячет? Мне нужно спрятать все единички  

Smiley, если просто пользоваться фильтром, то работают, а если фильтровать макросом - то в файле Book1.xlsm не работает

В приложении - два файла. В одном из них фильтр работает (см. макрос), в другом - нет. Почему? Как заставить его работать в первом файле?  

Макросом, который написан Михаил С.

Искомый текст из колонок Н-L файла Data. Этот тект почемуто нечувствительный к пробелам

Недавно заметил, что пробелы не учитываются в поиске. Например, мне нужно найти значение " ААА ", но это не то самое, что просто "ААА".  

Теперь работает. Благодарю

Спасибо Leanna и Михаил С.
Попробую потестировать, думаю данный пример может не только мне понадобиться

Михаил С., в вашем результате, напротив     185/65 R14 90R Nokian Nordman RS XL найдено значение Nokian Nordman. А нужно Nokian Nordman RS т.к. здесь еще более детальное совпадение... есть ли возможность это учесть?  

Помогите написать макрос (интересует именно макрос, так как ф-ции типа ИНДЕКС, ПОИСКПОЗ и пр. очень тормозят работу  будущего рабочего файла из за большого к-ва строк для поиска) для поиска и подстановки данных из другой книги:

Принцип следующий:
В файле Task в ячейке B5 ищется текст (Значение 1) из колонки Н файла Data.
Если находит такой текст, тогда в диапазон D5:I5 копируются данные из соответствующего диапазона В:G файла Data. Поиск для ячейки B5 прекращается и продолжается аналогично для В6.
Если не находит, тогда ищется Значение 2 и так далее.

Примеры прилагаю:
В файле Task в закладке Task указан диапазон, в котором нужно искать данные.
В файле Data в закладке Data - в столбцах H-L значения, которые нужно искать, а в столбцах B-G значения, которые нужно подставлять.
В файле Task в закладке Result - ожидаемый результат.

Описание получилось немного сумбурное, но по примерам должно быть понятным.
Заранее благодарю

Hugo, наверное ваш код. Спасибо за помощь, вроде разобрался

Помогите откорректировать макрос, а то я обычно корректирую макросы написанные макрорекорд., а тут не получается.  
   
Он работает, но мне не удается запустить его из другой книги с помощью  
Application.Run "Delete_Double_in_total.xls!compare"  
 
и как текст из этого макроса скопировать в другую книгу?  
не понимаю принципа действия строк    
With Sheet1    'используется кодовое имя  
 
Можно вместо этого использовать названия листов, какие там есть (а именно Total, Del_Double) - может тогда я смогу разобраться...  
Спасибо

Спасибо, работает

Добрый день!  
Не нашел поиском похожего решения проблемы, но вижу не я один стыкнулся с похожим (в посте от 06.02.2011, 17:02 http://www.planetaexcel.ru/forum.php?thread_id=24100 тоже ищут решение).  
Итак:  
Как макросом снять фильтр с тех позиций, которые необходимы?  
В моем случае (см. прикрепленный файл) нужно снять фильтр с "1" которые я обозначил желтым, а остальные должны остаться (в т. ч. "11", "21"...).    
Пробовал макрорекордером, но код типа  
 
ActiveSheet.Range("$A$2:$S$14").AutoFilter Field:=8, Criteria1:=Array(">20" _  
       , "11", "15", "21", "4", "51", "58", "8"), Operator:=xlFilterValues  
 
меня не устраивает, так как другие значения в файле будут периодически менятся.

понял, виноват. И спасибо за макрос!

char тоже не воспринимает

скажите еще пожалуйста, если у меня количество строк будет больше, скажем несколько тысяч, я попробовал вписать  
 x As Integer  
 
 
For x = 1 To 700 Step 1: b(ii, x) = a(i, x): Next  
 
но на слове Next выдает ошибку...

{quote}{login=Hugo}{date=15.11.2011 05:58}{thema=}{post}Вот пример кода в файле  
http://www.planetaexcel.ru/docs/forum_upload/post_278271.xls  
Можно как угодно его повернуть.{/post}{/quote}  
Спасибо, так мне намного понятнее, теперь все должно получиться

{quote}{login=Hugo}{date=15.11.2011 05:27}{thema=}{post}Имхо алгоритм может быть такой:  
словарь по B2&C2&D2&E2&F2 (только ещё разделитель бы не помешал, для верности) с связанным массивом, по стандартной схеме.  
При повторе проверяем значение столбца G - если меньше, то заменяем данные в массиве.  
В итоге выгружаем полученную верхушку словаря.  
Некогда, работа стоит... и ждёт....{/post}{/quote}  
 
спасибо за ответ. идея понятна, но реализировать ее сам я пока вряд ли смогу, буду пробовать...

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

Здравствуйте. Мой проблемный файл - в приложении. На листе Total показано исходный лист. На листе Remove_Double показан требуемый результат. В листе Remove_Double я создал столбец T в котором ячейки, которые нужно сравнивать. Критерий - столбец G. удалить нужно те строки, в столбце G которых число больше. Спасибо

значит не все так просто с этапом 2...

опечатка - нужно Удалять полностью строку если в столбце "0-ОК,1-Delete" стоит единица  
1-й этап мне понятен, макрос будет выглядеть так:  
 
Sub Main()  
Dim x As Range: Application.ScreenUpdating = False  
Set x = [N:N].Find(1, , , xlPart)
If Not x Is Nothing Then  
[N:N].ColumnDifferences(x).EntireRow.Hidden = True
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).EntireRow.Delete  
Rows.Hidden = False  
End If  
End Sub  
 
остался вопрос с дублями...

Протестировал макрос - оказалось если есть столбцы между анализируемыми, они пропадают. И макрос создает новый лист.  
 
Хотелось бы следующее (см.пример):    
Удалять полностью строку если есть дубли в столбце "Название". Критерий - столбец "цена". Где число минимальное, та строка и должна остаться.  
и если не сложно, то сначала  
Удалять полностью строку если в столбце "0-ОК,1-Delete" стоит ноль.  
Если можно - не создавать новый лист.  
Спасибо

тот 1 макрос работает, а это похожая задача но для другой цели