VBA для поиска нескольких значений

Question

У меня есть электронная таблица со значениями, перечисленными несколько раз в нескольких столбцах. Пример столбца b thru d. Можно ли искать каждое из этих значений по отдельности и возвращать значения из Column A.

Таблица данных

Пример вывода

Выходной лист уже будет иметь значения для поиска, перечисленные в Column A.

Answer 1

это решение vba, я не объявлял переменные, пожалуйста, сделайте это

Sub a()
Set sh1 = Sheets(1)
Set sh2 = Sheets(2)
Lastrow2 = sh2.Cells(Rows.Count, "A").End(xlUp).Row
For r = 2 To Lastrow2
  cable = sh2.Cells(r, 1)
  s = ""
  For Each cell In sh1.UsedRange
    If cell = cable Then s = s + sh1.Cells(cell.Row, 1) + ","
  Next
  sh2.Cells(r, 2) = s
Next
End Sub