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

Dim nms As String = "1,1,2,3,4,4,5,5,6"

Dim ls As new List(of String)
For Each cus As String In nms.split(",")
    If ls.Contains(cus) = False Then
        ls.add(cus)
        msgbox(cus)
    End If
Next