主题：不同列行合并去重

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))