Поиск данных

[aston]

В столбец "Подставить" необходимо подставить значение из столбца "Для подстановки" исходя из того, что значения ячеек столбца "Исходные" содержит данные, которые есть в одной из ячеек столбца "Для сравнения" (qq1 содержит 1=>а)
Заранее благодарен

[SAS888]

Какими средствами нужно решить задачу? Excel, или VBA?

[aston]

Было бы интересно посмотреть оба варианта. А так подойдет тот, который по Вашему мнению проще для реализации

[SAS888]

Посмотрите вложение. Запустите макрос "Main".

[aston]

Спасибо огромное, очень выручили
в итоге получилось следующее (добавил цикл)

[ZORRO2005]

Предложу вариант без VBA:

[aston]

Спасибо за варианты, все работает отлично

[дмидми]

Невероятным усилием интеллекта я всё же, кажется, понял, зачем был добавлен третий цикл (который, увы, никогда не будет работать), и предлагаю свой вариант для того же самого но без третьего цикла.

Несколько "добрых советов для бани":
1. Всегда начинать модуль строкой Option Explicit.
2. Никогда не использовать goto, кроме как в On Error.
3. В особенности: никогда не использовать goto для организации цикла.
4. По окончании цикла всегда считать переменную цикла неопределённой.

Option Explicit

Sub Main()
    'Собирает все подстановки, if any, НО!
    'В той последовательности, в которой они перечислены
    'в столбце D,
    'а не в той, которая имеется в строке из столбца A.
    'Так что для приведенных в примере подстановок
    'исходные "a1b9c" и "a9b1c" дадут одинаковый результат "аи".
    'Если подстановок нет, очищает результирующую ячейку.
    
    Dim i As Long, y As Long, s As String
    
    'Начинаем со вторых строк, чтобы пропустить заголовки
    For i = 2& To Cells(Rows.Count, "A").End(xlUp).Row
        s = ""
        For y = 2& To Cells(Rows.Count, "D").End(xlUp).Row
            If InStr(1, Cells(i, "A"), Cells(y, "D"), vbTextCompare) _
            Then s = s & Cells(y, "E")
        Next y
        Cells(i, "B") = s
    Next i
End Sub

[SAS888]

дмидми

4. По окончании цикла всегда считать переменную цикла неопределённой.

Ваши замечания слишком категоричны. ИМХО не всегда это так. Иногда, в особенности при досрочном выходе из цикла (например, с помощью "Exit For"), именно переменная цикла и есть искомое значение. В остальном - согласен, если вариант без "GoTo" даст какой-нибудь выигрыш (время выполнения процедуры, уменьшение "объема" кода и т.д.)
По поводу третьего цикла от aston Вы правы (только сейчас посмотрел). Нужно ли "собирать", или еще что-нибудь делать, если совпадают несколько значений, автор темы не оговаривает.

[дмидми]

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

Иногда, в особенности при досрочном выходе из цикла (например, с помощью "Exit For"), именно переменная цикла и есть искомое значение.

Воистину так! Но: попытка использовать "внутреннее" значение этой переменной вне цикла почти гарантирует ошибки. Поэтому лучше взять себе за правило сначала значение переменной цикла сохранить в другую переменную (с осмысленным названием), а потом уже вылетать по Exit For.

...если вариант без "GoTo" даст какой-нибудь выигрыш (время выполнения процедуры, уменьшение "объема" кода и т.д.)

Тот же выигрыш (а то и больший - за счёт наглядности кода и, следовательно, большей вероятности принятия разумных решений) можно обычно получить и без GoTo. Но в любом случае за счёт использования GoTo много не выиграешь, - а вот отказ от использования GoTo гарантирует уменьшение количества ошибок в программе.