сравнение массивов

[nik1905]

Здравствуйте!
Подскажите пожалуйста, вопрос вроде не сложный. у меня есть два заполненных столбца в Ехсеl. Нужно организовать следующую последовательность действий: если значение из первого входит во второй, то взать значение втрого и скопировать в новый массив рядом с первым. Пример усеченного и полного во вложении. Спасибо!

[Hugo121]

И как быть в случае с ооо и зао?

Так что ли?

Sub tt()
Dim a(), b(), c()
Dim i As Long, ii As Long
a = [a2:a5].Value
b = [c2:c6].Value
ReDim c(1 To UBound(a, 1), 1 To UBound(a, 2))
For i = 1 To UBound(a)
For ii = 1 To UBound(b)
If InStr(b(ii, 1), a(i, 1)) > 0 Then c(i, 1) = c(i, 1) & Chr(10) & b(ii, 1)
Next ii, i
[b2].Resize(UBound(c, 1), UBound(c, 2)).Value = c    'выгружаем результат
End Sub

[nik1905]

я немного некорректно написал.
Суть такая.
Есть список полных наименований ( ООО Лунтик)
есть список сокращений (Лунтик)
надо справа от стобца с сокращенным вариантом добавить столбец с его оргю формой (для Лунтика ООО).

[Hugo121]

Давайте другой пример.