主题：单元格 重复值 筛选问题

第一列
1，1，2，3，4，4，5，5，6

Dim nms As String = dr("第一列") 

现在我需要对这个数字集合进行逐个取值，但是不能重复：

For Each cus As String In 上面的不重复的值

Dim dr As DataRow = dt.AddNew()

dr("序号") = cus

做成临时表 这种效果

1
2
3
4
5
6

大大，这个循环取值怎么写？谢谢