Vba 与sumif类似的级联代码

我正在尝试创建查找条件连接vba宏

理想情况下，它应该根据A列中的值查找和连接B列中的文本，并按如下方式输出，如果我定义了查找

范例

数据集：

A   B
Car Alex 
Car Kieth
Bus Jenny
Car Jessica
Taxi Dom
Taxi Sabrina
Car Dick

查找输出

Car     Alex, Kieth, Jessica, Dick

与函数相比，我更喜欢vba宏，因为它在理想情况下占用的内存更少

Sub positionbreach()

Dim i As Long
Dim result As String
Dim Search_in_col As Range, Return_val_col As Range

Set Search_in_col = Worksheets("CARS").Range("A2:A50")
Set Return_val_col = Worksheets("CARS").Range("B2:B50")

Last = Cells(Rows.Count, "A").End(xlUp).Row

For j = Last To 2 Step -1

    For i = 1 To Search_in_col.Count

        If Search_in_col.Cells(i, 1) = Worksheets("CARS").Cells(j, 15) Then

        result = result & " " & Return_val_col.Cells(i, 1).Value

        End If

    Next

Worksheets("CARS").Cells(j, 17) = Trim(result)

Results = ""

Next
End Sub

我完全被困在连接部分。将我的代码修改到我现在的位置

谢谢你的帮助

我的输出如下

Alex  Kieth Jessica Dick Dom Sabrina Dom Sabrina Alex  Kieth Jessica Dick Jenny Alex  Kieth Jessica Dick Alex  Kieth Jessica Dick
Alex  Kieth Jessica Dick Dom Sabrina Dom Sabrina Alex  Kieth Jessica Dick Jenny Alex  Kieth Jessica Dick
Alex  Kieth Jessica Dick Dom Sabrina Dom Sabrina Alex  Kieth Jessica Dick Jenny
Alex  Kieth Jessica Dick Dom Sabrina Dom Sabrina Alex  Kieth Jessica Dick
Alex  Kieth Jessica Dick Dom Sabrina Dom Sabrina
Alex  Kieth Jessica Dick Dom Sabrina
Alex  Kieth Jessica Dick

不一样

result = "" 

---

如果使用Option Explicit，可以避免这种类型的错误，因为它会警告您未声明的变量。

这不起作用吗？通常情况下，由于输入错误，连接现在可以正常工作。

result = ""