主题：不同列行合并去重

表C 水果颜色

将同一水果的三张表的其他列的值合并，并去重，达到如下结果  该怎么编码

dim ss() as string = {"a","d","a","c"}

dim lst as new list(of string)

for each s as string in ss

if lst.contains(s)=false then ‘没有添加过，再添加

lst.add(s)

end if

next

msgbox(string.join("|",lst.toarray))