主题：提取不重复值

用getvalues提取不重复值针对普通的单元格可以，但如果单元格里面已经有分行，似乎不行。我例子中想从第一列提取不重复的姓名，存在一个字符串里，如
此主题相关图片如下：123.jpg

参考代码

 

Dim t As DataTable = DataTables("表A")
Dim ls As new List(Of String)
For Each dr As DataRow In t.Select("第一列 is not null")
    For Each s As String In dr.Lines("第一列")
        If ls.contains(s) = False Then
            ls.add(s)
        End If
    Next
Next
msgbox(String.Join("|", ls.ToArray))

谢谢！！