Sub Find() Application.ScreenUpdating = False Dim c As Range Dim cc As Range For Each c In Range("B1", Range("B" & Rows.Count).End(xlUp)).Cells For Each cc In Range("A1", Range("A" & Rows.Count).End(xlUp)).Cells If InStr(1, LCase(cc.Text), LCase(c.Text)) > 0 Then Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Value = cc.Value End If Next Next Application.ScreenUpdating = True End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
