Найти непревзойденные строки между двумя массивами vba

Question

Я пытаюсь получить непревзойденные строки в 2 массивах. Я пробовал это How to search for string in an array, но они возвращают true или false.

dim arr1 as variant 
dim arr2 as variant 

arr1 = "abc,def,ghi,jkl" 
arr2 = "abc,def,ghi,jkl,pre,ec,vw" 

Но я пытаюсь получить строки, как результата = "заранее, ес, Vw" Как определить, что в VBA

Answer 1

попробовать этот

result=replace(arr2,arr1,"") 

к которые находятся в arr2, но не в arr1

Sub aargh() 
    arr1 = "abc,def,ghi,jkl" 
    arr2 = "abc,def,ghi,zer,jkl,pre,ec,vw" 
    a = Split(arr1, ",") 
    For i = LBound(a) To UBound(a) 
     arr2 = Replace(arr2, a(i), "") 
    Next i 
    ol = 0 
    While Len(arr2) <> ol 
     ol = Len(arr2) 
     arr2 = Replace(arr2, ",,", ",") 
    Wend 
    If Left(arr2, 1) = "," Then arr2 = Mid(arr2, 2) 
    MsgBox arr2 
End Sub