Excel- Возвращает несколько значений в одной ячейке из нескольких строк

Question

Я пытаюсь выполнить VLOOKUP, но он может только вернуть 1 значение. Я хочу, чтобы мой результат возвращал несколько адресов электронной почты, а мое значение поиска - это несколько имен в одной ячейке. Первая ячейка - это значение, которое я хочу сопоставить с моей таблицей поиска.

Ниже моя таблица поиска, где каждый адрес электронной почты здесь, но, как я достичь результата, как aa@g.vom; bb@g.com, так что я могу просто автоматизировать напоминание по электронной почте в VBA с использованием подстановок писем ранее ? Как я могу это достичь?

Я также получил эту ошибку, когда я отладку, я не могу получить выбранные электронные почты

Sub getEmails() 
Dim toNames As Range 
Set toNames = Range("J3:J500") ' names input by user 

Dim names As Range 
Set names = Range("Email!B3:C25") ' names range from lookup table from different worksheet 

Dim splitNames 
splitNames = Split(toNames, ",") 

Dim selectedEmails As String 

For i = 0 To UBound(splitNames) 
    findRange = names.Find(What:=splitNames(i), LookIn:=xlFormulas, _ 
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False) 

    ' if match found, get the email and store to selected emails variable 
    If Not findRange Is Nothing Then 
    selectedEmails = selectedEmails & Range("B" & findRange.Row) & ";" 
    End If 


Next i 

'output emails 
Range("Q3:Q500") = selectedEmails 
End Sub 

Answer 1

Итак, вы хотите, чтобы ввести множество имен в ячейке и получить соответствующие сообщения электронной почты из таблицы в другой ячейке. Попробуйте приведенный ниже код. Я предположил, что имена были введены через запятую, и полученные электронные письма разделяются символом «;»

Sub getEmails() 
     Dim toNames As Range 
     Set toNames = Range("D25") ' names input by user 

     Dim names As Range 
     Set names = Range("A25:A39") ' names range from lookup table 

     Dim splitNames 
     splitNames = Split(toNames, ",") 

     Dim selectedEmails As String 
     Dim findRange As Range 

     For i = 0 To UBound(splitNames) 
      ' find the range matching the name 
      findRange = names.Find(What:=splitNames(i), LookIn:=xlFormulas, _ 
       LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
       MatchCase:=False, SearchFormat:=False) 

      ' if match found, get the email and store to selected emails variable 
      If Not findRange Is Nothing Then 
       selectedEmails = selectedEmails & Range("B" & findRange.Row) & ";" 
      End If 

     Next i 

     'output emails 
     Range("D26") = selectedEmails 
    End Sub 

Также будет отображаться ошибка времени выполнения, если любое из имен не будет найдено в списке.