VBA用于查找多个值

我有一个电子表格，其中的值在多个列中多次列出。示例列b到d。是否可以单独查找这些值并从A列返回值

数据表

输出示例

---

输出工作表已经在A列中列出了要查找的值。

这是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

---

vba还是vb.net？