Det finns en excelformel du kan använda:

=XLETAUPP("*"&B2&"*";D:D;A:A;;2)

Lek lite och kolla om den gör det du vill.

Den sista 2:an betyder att du vill använda jokertecken (WIldcards) och början är ett sätt att pete in * i börja och slutet av söksträngen

*blå*

hittar alltså 

Blåbär, himmlesblå, bilblådårar etc

Eftersom du frågar i VBA-forumet så kan du antingen klistra in formeln med hjälp av VBA

'Något slags loop-start (exempel om du vill ha svaret i E-kolumnen)

    ActiveCell.FormulaR1C1 = "=XLOOKUP(""*""&RC[-3]&""*"",C[-1],C[-4],,2)"

'avslutad loop

eller använda excelformeln som en funktion i VBA. Typ:

application.WorksheetFunction.XLookup(...

 =FILTER(A2:A10;ANTAL.OM(D2:D10;"*"&B2:B10&"*"))

 Knivigt men långt från omöjligt. Skriv nedan formel i cell E2. Fyll sedan nedåt.

=OM(SUMMA(--(ÄRTAL(SÖK(B2;$D$2:$D$20))))>=1;A2;"ingen träff")

Har du inte 365 så slår du in den med ctrl+shift+efter. Formeln är

otestad då jag skrev den på telefonen, men bör funka om jag kommer ihåg ordningen på argumenten i SÖK.

*edit*, testat formeln nu, funkar både i 365 och äldre versioner. Måste dock slås in med ctrl + shift + enter för de äldre. BLir dock lite förvirrad av att du vill ha träffen på samma rad som sökvärdet i kolumn B, men att du i ditt bildexempel istället visar det jämte första träffen i kolumn D. VIll du ha det enligt din text, så kan du använda min formel, annars får du testa anons istället.

/c