excel - 単一セル、ネストされた VBA での重複の削除

Question

複数の vlookup 値を 1 つのセルにプルする必要がありました。そのために、vba を使用してパブリック関数という名前を作成しました。MULTIVLOOKUPこれは完全に機能し、単一のセルに次の値が得られます。

Vendor, Site, ARO, ARO, ARO, Site

これを取得する式は次のとおりです。=MULTIVLOOKUP($J9, $A$2:$A$5000, 4)

次に、スタックオーバーフローで見つかったコードを使用して、重複を削除しました。これは、ユーザー KazJaw が提供する優れたコードです。

Function UniqueFromCell(rngCell, splitString)

Dim myCol As New Collection
Dim itmCol
Dim i As Long

Dim arrTMP As Variant
arrTMP = Split(rngCell, splitString)

For i = 1 To UBound(arrTMP)
  On Error Resume Next
  myCol.Add arrTMP(i), CStr(arrTMP(i))
  On Error GoTo 0
Next i

Dim result
For Each itmCol In myCol
  result = result & itmCol & splitString
Next

UniqueFromCell = Left(result, Len(result) - Len(splitString))

End Function

私の結果の式は次のようになります。

=UNIQUEFROMCELL(MULTIVLOOKUP($J9, $A$2:$A$5000, 4), ",").

私の結果を除いて、それはほぼ完璧に機能します： Site, ARO

ベンダーを失った！

助言がありますか？前もって感謝します。