Проверьте, какие (несколько) ячеек в столбце A содержат подстроки, указанные в столбце B?

Question

В колонке AI есть описания сделок M & A, в которых упоминаются названия компаний. В столбце BI есть названия компаний, для каждого из которых я хочу видеть, где это упоминается в столбце A.

С чем у меня проблемы: Некоторые строки в столбце B будут представлены в виде подстрок в столбце A несколько раз, и я хочу вернуть все экземпляры, а не только один.

Answer 1

Попробуйте этот довольно маленький макрос:

Sub DataLocator()
  Dim nA As Long, nB As Long, i As Long, j As Long, k As Long
  Dim v As String
  nA = Cells(Rows.Count, "A").End(xlUp).Row
  nB = Cells(Rows.Count, "B").End(xlUp).Row

  For i = 1 To nB
    v = Cells(i, "B").Value
    k = 3
    For j = 1 To nA
      If InStr(1, Cells(j, "A").Value, v) > 0 Then
        Cells(i, k).Value = Cells(j, "A").Address(0, 0)
        k = k + 1
      End If
    Next j
  Next i
End Sub

Например:

Макросы очень просты в установке и использовании:

1. ALT-F11 открывает окно VBE
2. ALT-I ALT-M открывает новый модуль
3. вставьте материал и закройте окно VBE

Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx

Чтобы удалить макрос:

1. откройте окно VBE, как указано выше
2. очистить код
3. закройте окно VBE

Чтобы использовать макрос из Excel:

1. ALT-F8
2. Выберите макрос
3. Нажмите RUN

Чтобы узнать больше о макросах в целом, смотрите:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

а также

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Макросы должны быть включены, чтобы это работало!