Макрос поиска и вывода строк, содержащих значение поиска

@mrf · Регистрация: 16.03.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Есть макрос для поиска значения из ячейки А1 по всему листу и копированием строк из всех листов, содержащих это значение.
Но есть и проблема: макрос поиска ищет только цифровые значения из указанной ячейки. Текстовые или смешанные не находит.
Если знаете как подправить, помогите плз!!!
Вот код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub SearchPN()
  Dim iCopi As Range
  Dim iPast As Range
  AR = Range("A1")   'значение для поиска
  SZ = 15
  PS = Cells(Rows.Count, 1).End(xlUp).Row
  Rows("15:" & PS).Delete Shift:=xlUp
  For I = 3 To 9
    IL = Cells(I, 5) 'номер листа
    KL = Cells(I, 6) 'номер столбца
    Cells(SZ, 2) = IL
    SZ = SZ + 1
    Set iCopi = Worksheets(IL).Range("A1:AD1")
    Set iPast = Worksheets("SEARCH").Range("A" & SZ)
    iCopi.Copy iPast
    SZ = SZ + 1
    PS = Sheets(IL).Cells(Rows.Count, KL).End(xlUp).Row
    For J = 2 To PS
      R = Val(Sheets(IL).Cells(J, KL))
      If Val(Sheets(IL).Cells(J, KL)) = AR Then
         Set iCopi = Worksheets(IL).Range("A" & J & ":AD" & J)
         Set iPast = Worksheets("SEARCH").Range("A" & SZ)
         iCopi.Copy iPast
         SZ = SZ + 1
      End If
    Next J
    SZ = SZ + 1
  Next I
End Sub
 
 
Sub Add_line()
    '
    ' Add_line Macro
    '
    ' Keyboard Shortcut: Ctrl+q
    '
    With ThisWorkbook.ActiveSheet
        Set iDiapazon = .UsedRange
        With iDiapazon
            nREnd = .Row + .Rows.Count - 1
            nCEnd = .Column + .Columns.Count - 1
        End With
        Set iDiapazon = Nothing
            
        If nREnd < 3 Then: MsgBox "Íå ïðîâåäåíî íè îäíîé îïåðàöèè.", vbInformation + vbOKOnly, "Ñîîáùåíèå ñèñòåìû": Exit Sub
            
'        MsgBox " - ñòðîêà " & nREnd & Chr(10) & " - ñòîëáåö " & nCEnd, vbInformation + vbOKOnly, "Êðàéíèå:"
        
        Rows(nREnd + 1).Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove
        
        Range(.Cells(nREnd, 1), .Cells(nREnd, nCEnd)).Copy
        Range(.Cells(nREnd + 1, 1), .Cells(nREnd + 1, 1)).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
 
    End With
End Sub

@mrf · 02.12.2013, 14:26 **[ТС]**

Вы же видите, что этот макрос - плод коллекивного творчества форума

Написали общими усилиями год назад - все работало

я убрал сейчас R - и все работает

)
Напомнило, как друзья перебирали мотор в Гелинвагене. После переборки остался целый тазик болтиков, кронштейнов, релешек, и т.п. Гелен с тех пор ездеет уже 2 год без всяких проблем.

все гениальное должно быть просто!

@Hugo121 · 02.12.2013, 14:47

Вполне может быть, что эта R публичная, Integer, и используется где-то позже в другом макросе - Вы ведь не показываете файл и всю задачу.
Ну а если она не нужна - то конечно она не нужна

А то что "Вы же видите" - да ничего я не вижу

@Sac · 11.08.2015, 11:54

Здравствуйте! Нужна помощь Есть база в которой всего один лист,в нескольких столбцах два значения по функции =ЕСЛИ(P1>640;"Снять";"Начислить") на каждый месяц свое условие то есть на следующий месяц столбец уже будет выглядеть так =ЕСЛИ(P6>1640;"Снять";"Начислить") Нужна функция в которой есть поле "что искать" где указываем значение "Снять" или "Начислить"и поле где вводим название книги например "снятие с начисления" Итог нужно найти данные "Снять" и скопировать строки с ними в отдельную книгу "снятие с начисления" Вроде типа найти в выделенном столбце все данные соответствующие "Снять" и выделить строки где есть эти данные, или скопировать их в другую книгу, ну или если проще то на другой лист.В базе 70 тыс. строк в данный момент все делается вручную так как обычный поиск не выделяет строки.
База образец.xls

На оплату.xls

Снять с начисления.xls

@mrf · 08.09.2015, 13:01 **[ТС]**

Здравствуйте,
перестал работать поиск.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Application.EnableCancelKey = xlDisabled
  If Range("c1") = "" Then Exit Sub
   Application.ScreenUpdating = False
   Application.Calculation = xlAutomatic
  Dim iCopi As Range
  Dim iPast As Range
  Dim ar As String
  ar = CStr(Range("A1"))   '???????? ??? ??????
  sz = 15
  ps = Cells(Rows.Count, 1).End(xlUp).Row
  Rows("15:" & ps).Delete Shift:=xlUp
  For i = 4 To 9
    iL = Cells(i, 35) '????? ?????
    KL = Cells(i, 36) '????? ???????
    Cells(sz, 2) = iL
    sz = sz + 1
    Set iCopi = Worksheets(iL).Range("A1:AD1")
    Set iPast = Worksheets("SEARCH").Range("A" & sz)
    iCopi.Copy iPast
    sz = sz + 1
    ps = Sheets(iL).Cells(Rows.Count, KL).End(xlUp).Row
    For j = 2 To ps
      r = Val(Sheets(iL).Cells(j, KL))
      If CStr(Sheets(iL).Cells(j, KL)) Like ar Then
         Set iCopi = Worksheets(iL).Range("A" & j & ":AD" & j)
         Set iPast = Worksheets("SEARCH").Range("A" & sz)
         iCopi.Copy iPast
         sz = sz + 1
      End If
    Next j
    sz = sz + 1
  Next i
  Application.Calculation = xlManual

останавливается на r = Val(Sheets(iL).Cells(j, KL)). Пишет run error 6, Overflow.

в чем ошибка?

shanemac51 · 08.09.2015, 13:12

останавливается на r = Val(Sheets(iL).Cells(j, KL)). Пишет run error 6, Overflow.

ошибка --переполнение
надо знать значения всех переменных il,j,kl и просмотреть значение данной ячейки
оно должно быть менее 2 000 0000 000

@mrf · 08.09.2015, 13:45 **[ТС]**

: iL : "block" : Variant/String
: j : 186 : Variant/Long
: KL : 6 : Variant/Double

стопариться, как я понял, на Листе "Блок". Поиск по 6му столбцу.
На листе около 500 позиций. 2 млн. точно не превышается

Добавлено через 7 минут
186 строка: 3E1214A00246. Формат текстовый.

Добавлено через 14 минут
вобщем, глюк именно тут... в номере 3E1214A00246.....
Эксель воспринимает как экспоненциональный формат, раскладывает число и ищет совпадение?
Пробывал помимо текст.формата ставить ещё и апостроф, и пробелы ... не помогает...

shanemac51 · 08.09.2015, 13:59

val --это перевод в число
3E1214A00246 много более 2 000 000 000
вот и переполнение

@mrf · 08.09.2015, 15:17 **[ТС]**

Спасибо, понял.
Чем-нибудь можно заменить VAL?
А почему '3E1214A00246 в ячейке с форматом "текст" переводится в число? Апостроф же является как бы символом запрета на перевод в число и жесткой фиксацией "текста"...

@Казанский · 09.09.2015, 00:08

Сообщение от mrf

Чем-нибудь можно заменить VAL?

А что собственно Вы хотите получить в переменной r? Эта переменная больше никак не используется в цикле - эта строка наверняка лишняя.

Сообщение от mrf

А почему '3E1214A00246 в ячейке с форматом "текст" переводится в число?

Потому что Val - функция для перевода текста в число. Хотя бы поставьте курсор в слово Val и нажмите F1.

@mrf · 09.09.2015, 11:02 **[ТС]**

Спасибо вам обоим!

r убрал в этом поиске, в других оставил, т.к. там действительно необходимо.

@mrf · 09.03.2016, 23:43 **[ТС]**

Здравствуйте,
подскажите, пожалуйста, как в данный макрос добавить поиск по 2-м значениям?

Visual Basic
1
2
3
  For i = 4 To 9 ' диапазон условий
    iL = Cells(i, 35) 'лист
    KL = Cells(i, 36) ' столбец

а нужно сделать

Visual Basic
1
2
3
4
  For i = 4 To 9 ' диапазон условий
    iL = Cells(i, 35) 'лист
    KL = Cells(i, 36) ' по этому столбец совпадение критерия №1
    KL1 = Cells(i, 37) ' а по этому столбцу совпадение критерия №2

Т.е. есть артикул и наименование. Сейчас ищет или по артикулу или по наименованию, хотелось бы, чтобы выводилось совпадение и по артикулу и по наименованию.
Например есть

1. болт ААА - 5 шт
2. Болт АААА - 10 шт
3. гайка ААА - 5 шт
4. гайка АААА - 10 шт
поиск артикула ААА дает много лишнего также как и поиск наименование "болт"
Вот надо, чтобы сразу вводили болт ААА и поиск выдавал на всех листах полные строчки с совпадением.

Заранее спасибо!

@mrf · 11.03.2016, 18:48 **[ТС]**

помогите,пожалуйста, собрать воедино и заставить работать следующие идеи:
1. добавляем второй критерий:
ar1 = CStr(Range("s1"))
2. добавляем где искать второй агрумент
KL1 = Cells(i, 33)
(надо ли под второй агрумент указывать диапозон имен листов как под первый критерий?)
3. меняем условие на совпадение по 1му и 2му агрументу
If CStr(Sheets(iL).Cells(j, KL)) Like ar And CStr(Sheets(iL).Cells(j, KL1)) Like ar1 Then
(вот тут ваще не понятно, сделал на обум, вроде строчку не высвечивает)

в итоге выходит ран-тайм еррор 1004 application-defined or object-defined error

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
  Application.ScreenUpdating = False
  Application.Calculation = xlAutomatic
  Dim iCopi As Range
  Dim iPast As Range
  Dim ar As String
  ar = CStr(Range("r1"))   '???????? ??? ??????
    ar1 = CStr(Range("s1"))   '???????? ??? ??????
  sz = 15
  ps = Cells(Rows.Count, 1).End(xlUp).Row
  Rows("15:" & ps).Delete Shift:=xlUp
  For i = 4 To 9
    iL = Cells(i, 31) '????? ?????
    KL = Cells(i, 32) '????? ???????
     KL1 = Cells(i, 33)
    Cells(sz, 2) = iL
    sz = sz + 1
    Set iCopi = Worksheets(iL).Range("A1:AD1")
    Set iPast = Worksheets("SEARCH").Range("A" & sz)
    iCopi.Copy iPast
    sz = sz + 1
    ps = Sheets(iL).Cells(Rows.Count, KL).End(xlUp).Row
    For j = 2 To ps
    '  r = Val(Sheets(iL).Cells(j, KL))
         If CStr(Sheets(iL).Cells(j, KL)) Like ar And CStr(Sheets(iL).Cells(j, KL1)) Like ar1 Then
         Set iCopi = Worksheets(iL).Range("A" & j & ":AD" & j)
         Set iPast = Worksheets("SEARCH").Range("A" & sz)
         iCopi.Copy iPast
         sz = sz + 1
      End If
    Next j
    sz = sz + 1
  Next i
Application.Calculation = xlManual

подправьте, плиз...

@mrf · 24.08.2016, 16:26 **[ТС]**

Здравствуйте,
можно ли в данном макросе обойтись как-нибудь без "Application.Calculation = xlAutomatic"? Книга большая, пересчет занимает много времени и, соответственно, вывод результатов поиска растягивается на долго. Есть альтернатива?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub CommandButton3_Click()
Sheets("SEARCH").Select
Application.EnableCancelKey = xlDisabled
  If Range("c1") = "" Then Exit Sub
   Application.ScreenUpdating = False
   Application.Calculation = xlAutomatic
  Dim iCopi As Range
  Dim iPast As Range
  Dim ar As String
  ar = CStr(Range("A1"))
  sz = 15
  ps = Cells(Rows.Count, 1).End(xlUp).Row
  Rows("15:" & ps).Delete Shift:=xlUp
  For i = 4 To 9
    iL = Cells(i, 35)
    KL = Cells(i, 36) '
    Cells(sz, 2) = iL
    sz = sz + 1
    Set iCopi = Worksheets(iL).Range("A1:AD1")
    Set iPast = Worksheets("SEARCH").Range("A" & sz)
    iCopi.Copy iPast
    sz = sz + 1
    ps = Sheets(iL).Cells(Rows.Count, KL).End(xlUp).Row
    For j = 2 To ps
      'r = Val(Sheets(iL).Cells(j, KL))
      If CStr(Sheets(iL).Cells(j, KL)) Like ar Then
         Set iCopi = Worksheets(iL).Range("A" & j & ":AD" & j)
         Set iPast = Worksheets("SEARCH").Range("A" & sz)
         iCopi.Copy iPast
         sz = sz + 1
      End If
    Next j
    sz = sz + 1
  Next i
  Application.Calculation = xlManual
Application.EnableCancelKey = xlInterrupt
   Application.ScreenUpdating = False
End Sub

@Hugo121 · 24.08.2016, 16:54

Да макросу пофиг есть там промежуточный пересчёт или нет. А вот что там за задача - это Вы должны знать, нужно ли там промежуточно пересчитывать.

@mrf · 24.08.2016, 17:17 **[ТС]**

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

Visual Basic
1
2
3
 For i = 4 To 9
    iL = Cells(i, 35)
    KL = Cells(i, 36)

Но если отключить пересчет в начале, то результат не выводится. Проверял так: поиск с пересчетом - все ок, потом комментировал пересчет и менял критерий поиска - результат старый остается.

@KoGG · 25.08.2016, 09:35

Отключить пересчет.
Строки 28 -29 :

Visual Basic
1
2
         Set iPast = Worksheets("SEARCH").Range("A" & sz & ":AD" & sz)
         iPast.Value = iCopi.Value

@mrf · 25.08.2016, 16:01 **[ТС]**

отключил пересчет, изменил 28 и 29 строку - не ищет вобще.
включил, как было в начале, пересчет и изменил 28,29 строки - ищет быстрее, но выводит результаты без заливки. Это не совсем подходит, т.к. у меня на даблклик в зависимости от цвета записаны процедуры (переход на др.лист к позиции).
Другими словами, без пересчета не получилось.

@KoGG · 25.08.2016, 16:41

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub CommandButton3_Click()
  Dim iCopi As Range, iPast As Range, ar As String, i&, j&, sz&, ps&, A, KL, iL
  Sheets("SEARCH").Select
  If Range("c1") = "" Then Exit Sub
  Application.ScreenUpdating = False
  Sheets("SEARCH").Select
  ar = CStr(Range("A1"))
  sz = 15
  ps = Cells(Rows.Count, 1).End(xlUp).Row
  Rows("15:" & ps).Delete Shift:=xlUp
  For i = 4 To 9
    Application.Calculation = xlAutomatic
    iL = Cells(i, 35)
    KL = Cells(i, 36) '
    Cells(sz, 2) = iL
    sz = sz + 1
    Set iCopi = Worksheets(iL).Range("A1:AD1")
    Set iPast = Worksheets("SEARCH").Range("A" & sz)
    ps = Sheets(iL).Cells(Rows.Count, KL).End(xlUp).Row
    A = Worksheets(iL).Range("A1:AD" & ps).Value
    Application.Calculation = xlManual
    iCopi.Copy iPast
    sz = sz + 1
    For j = 2 To ps
      If CStr(A(j, KL)) Like ar Then
         Set iCopi = Worksheets(iL).Range("A" & j & ":AD" & j)
         Set iPast = Worksheets("SEARCH").Range("A" & sz & ":AD" & sz)
         iCopi.Copy
         iPast.PasteSpecial Paste:=xlPasteValues
         iPast.PasteSpecial Paste:=xlPasteFormats
         sz = sz + 1
      End If
    Next j
    sz = sz + 1
  Next i
End Sub

@mrf · 25.08.2016, 17:46 **[ТС]**

Спасибо большое!
Существенно быстрее: с 40-60 с до 12-15с!

@pantileev · 27.02.2018, 11:16

Всем привет, подскажите пожалуйста, а можно макросом решить следующую задачку.
У меня два разных файла. В одном у меня битые url адреса с кодом ответа сервера 404 и их много. А во втором файле у меня полный масив этих url адресов, часть нормальные, а часть соответственно битые с кодом 404.
Проблема в том, что битые url адреса не полностью совпадают текстом с общим массивом, так как url адреса в общем массиве содержат еще дополнительную разметку для аналитики. Если бы они полностью совпадали я бы использовал обычную формулу ВПР, но тут у меня совпадение только части текста и у меня не получается из-за этого найти битые ссылки с кодом 404 в общем массиве.
Может подскажет кто, как быть ?

Новые блоги и статьи Все статьи Все блоги /
Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .
Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .

@mrf 12 / 12 / 4 Регистрация: 16.03.2012 Сообщений: 252
	02.12.2013, 14:26 [ТС]
	Вы же видите, что этот макрос - плод коллекивного творчества форума Написали общими усилиями год назад - все работало я убрал сейчас R - и все работает) Напомнило, как друзья перебирали мотор в Гелинвагене. После переборки остался целый тазик болтиков, кронштейнов, релешек, и т.п. Гелен с тех пор ездеет уже 2 год без всяких проблем. все гениальное должно быть просто! 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	02.12.2013, 14:47
	Вполне может быть, что эта R публичная, Integer, и используется где-то позже в другом макросе - Вы ведь не показываете файл и всю задачу. Ну а если она не нужна - то конечно она не нужна А то что "Вы же видите" - да ничего я не вижу 0

@Sac 0 / 0 / 0 Регистрация: 10.08.2015 Сообщений: 1
	11.08.2015, 11:54
	Здравствуйте! Нужна помощь Есть база в которой всего один лист,в нескольких столбцах два значения по функции =ЕСЛИ(P1>640;"Снять";"Начислить") на каждый месяц свое условие то есть на следующий месяц столбец уже будет выглядеть так =ЕСЛИ(P6>1640;"Снять";"Начислить") Нужна функция в которой есть поле "что искать" где указываем значение "Снять" или "Начислить"и поле где вводим название книги например "снятие с начисления" Итог нужно найти данные "Снять" и скопировать строки с ними в отдельную книгу "снятие с начисления" Вроде типа найти в выделенном столбце все данные соответствующие "Снять" и выделить строки где есть эти данные, или скопировать их в другую книгу, ну или если проще то на другой лист.В базе 70 тыс. строк в данный момент все делается вручную так как обычный поиск не выделяет строки. База образец.xls На оплату.xls Снять с начисления.xls 0

@mrf 12 / 12 / 4 Регистрация: 16.03.2012 Сообщений: 252
	08.09.2015, 13:45 [ТС]
	: iL : "block" : Variant/String : j : 186 : Variant/Long : KL : 6 : Variant/Double стопариться, как я понял, на Листе "Блок". Поиск по 6му столбцу. На листе около 500 позиций. 2 млн. точно не превышается Добавлено через 7 минут 186 строка: 3E1214A00246. Формат текстовый. Добавлено через 14 минут вобщем, глюк именно тут... в номере 3E1214A00246..... Эксель воспринимает как экспоненциональный формат, раскладывает число и ищет совпадение? Пробывал помимо текст.формата ставить ещё и апостроф, и пробелы ... не помогает... 0

shanemac51 Модератор 12511 / 5085 / 814 Регистрация: 07.08.2010 Сообщений: 14,961 Записей в блоге: 4
	08.09.2015, 13:59
	val --это перевод в число 3E1214A00246 много более 2 000 000 000 вот и переполнение 1

@mrf 12 / 12 / 4 Регистрация: 16.03.2012 Сообщений: 252
	08.09.2015, 15:17 [ТС]
	Спасибо, понял. Чем-нибудь можно заменить VAL? А почему '3E1214A00246 в ячейке с форматом "текст" переводится в число? Апостроф же является как бы символом запрета на перевод в число и жесткой фиксацией "текста"... 0

@mrf 12 / 12 / 4 Регистрация: 16.03.2012 Сообщений: 252
	09.09.2015, 11:02 [ТС]
	Спасибо вам обоим! r убрал в этом поиске, в других оставил, т.к. там действительно необходимо. 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	24.08.2016, 16:54
	Да макросу пофиг есть там промежуточный пересчёт или нет. А вот что там за задача - это Вы должны знать, нужно ли там промежуточно пересчитывать. 0

@mrf 12 / 12 / 4 Регистрация: 16.03.2012 Сообщений: 252
	25.08.2016, 16:01 [ТС]
	отключил пересчет, изменил 28 и 29 строку - не ищет вобще. включил, как было в начале, пересчет и изменил 28,29 строки - ищет быстрее, но выводит результаты без заливки. Это не совсем подходит, т.к. у меня на даблклик в зависимости от цвета записаны процедуры (переход на др.лист к позиции). Другими словами, без пересчета не получилось. 0

@mrf 12 / 12 / 4 Регистрация: 16.03.2012 Сообщений: 252
	25.08.2016, 17:46 [ТС]
	Спасибо большое! Существенно быстрее: с 40-60 с до 12-15с! 0

@pantileev 0 / 0 / 0 Регистрация: 27.02.2018 Сообщений: 1
	27.02.2018, 11:16
	Всем привет, подскажите пожалуйста, а можно макросом решить следующую задачку. У меня два разных файла. В одном у меня битые url адреса с кодом ответа сервера 404 и их много. А во втором файле у меня полный масив этих url адресов, часть нормальные, а часть соответственно битые с кодом 404. Проблема в том, что битые url адреса не полностью совпадают текстом с общим массивом, так как url адреса в общем массиве содержат еще дополнительную разметку для аналитики. Если бы они полностью совпадали я бы использовал обычную формулу ВПР, но тут у меня совпадение только части текста и у меня не получается из-за этого найти битые ссылки с кодом 404 в общем массиве. Может подскажет кто, как быть ? 0