Нахождение неточного совпадения ячейки в массиве ячеек

@aloha137 · Регистрация: 27.07.2016

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

Всем привет! На этом форуме совсем недавно. Надеюсь на вашу помощь.

Передо мной встала диллема. Значит у нас есть два листа : на первом набор строк ("Запрос"), в которых будут искаться любые вхождения из массива строк 2-ого листа ("Города") . В случае, если вхождение есть - выводить в ячейке напротив, что мол "да, есть " , неважно на самом деле что будет выводиться. То есть, например, у нас есть ячейка со значением "55 55 55 курск" с листа "Запрос" и этот город есть во втором листе. Значит будет выводиться, что "да, есть совпадение". Что важно: не учитывать словоформы и регистр городов. В общем моя задача, отсеять все запросы с вхождениями городов из списка. Решить эту задачу любыми средствами, непринципиально: хоть макросом хоть как. Прикладываю файл.

@OlegJV · 28.07.2016, 06:19

Имхо Excel не лучшее средство для подобных задач. В Access запросами все бы легче решилось.

toiai · 28.07.2016, 08:31

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

из массива строк 2-ого листа ("Города")

Ну и где же он?

Добавлено через 2 часа 10 минут
Вот вариант с использованием словаря. На лист "Города" надо внести названия городов и запускай макрос:

Visual Basic

Sub tt1()
    Dim a, b, c, i&, el, t$
    Set ShA = Sheets("Уже пробитая частота")
    a = Sheets("Города").[a1].CurrentRegion.Value
    b = ShA.Columns(1).CurrentRegion.Value
    ReDim c(1 To UBound(b), 1 To 1)
    With CreateObject("scripting.dictionary")
        .comparemode = 1
        For i = 1 To UBound(a)
            t = a(i, 1)
            .Item(t) = 0
        Next
        For i = 2 To UBound(b)
            s = Split(b(i, 1))
            For Each el In s
                If .exists(el) Then c(i, 1) = "да, есть": Exit For
            Next
        Next
        i = 1
        ShA.Cells(1, ShA.UsedRange.Columns.Count + 1).Resize(UBound(c), 1) = c
    End With
End Sub

@aloha137 · 28.07.2016, 16:41 **[ТС]**

Спасибо огромное! Буду теперь ковыряться, чтобы разобраться в логике)

А что бы посоветовали почитать по написанию макросов для новичка ?

@Sasha_Smirnov · 29.07.2016, 00:39

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

У меня Гетц и Джилберт (в сети есть отрывочки [но ссылки там уже не активны])

Там же высказались Igor_Tr, Апострофф, Surrogate и shanemac51.

Добавлено через 1 минуту
Хотя смотря ради чего.

@OlegJV 104 / 103 / 29 Регистрация: 13.03.2016 Сообщений: 474
	28.07.2016, 06:19	2
	Имхо Excel не лучшее средство для подобных задач. В Access запросами все бы легче решилось. 1

@aloha137 0 / 0 / 0 Регистрация: 27.07.2016 Сообщений: 2
	28.07.2016, 16:41 [ТС]	4
	Спасибо огромное! Буду теперь ковыряться, чтобы разобраться в логике) А что бы посоветовали почитать по написанию макросов для новичка ? 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	29.07.2016, 00:39	5
	Сообщение от Sasha_Smirnov У меня Гетц и Джилберт (в сети есть отрывочки [но ссылки там уже не активны]) Там же высказались Igor_Tr, Апострофф, Surrogate и shanemac51. Добавлено через 1 минуту Хотя смотря ради чего. 0

Нахождение неточного совпадения ячейки в массиве ячеек

Решение