Попробуйте этот довольно маленький макрос:
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
Например:
Макросы очень просты в установке и использовании:
- ALT-F11 открывает окно VBE
- ALT-I ALT-M открывает новый модуль
- вставьте материал и закройте окно VBE
Если вы сохраните книгу, макрос будет сохранен вместе с ней.
Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx
Чтобы удалить макрос:
- откройте окно VBE, как указано выше
- очистить код
- закройте окно VBE
Чтобы использовать макрос из Excel:
- ALT-F8
- Выберите макрос
- Нажмите RUN
Чтобы узнать больше о макросах в целом, смотрите:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
а также
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
Макросы должны быть включены, чтобы это работало!