- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]单元格多行内容去重 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126609)
-- 发布时间：2018/10/25 10:20:00
-- [求助]单元格多行内容去重
请老师帮助完善一下代码，谢谢！
此主题相关图片如下：image 1.jpg
窗口按钮 -- 去重代码：
For Each dr As DataRow In DataTables("数据表").DataRows
Dim s As String = dr("代理案件")
If s >"" Then
s = s.replace(vbcr, "")
Dim fls() As String = s.split(vblf)
For Each f As String In fls
......
Next
-- 发布时间：2018/10/25 10:32:00
--
For Each dr As DataRow In DataTables("数据表").DataRows
Dim lst As new List(of String)
For Each f As String In dr.Lines("代理案件")
If lst.Contains(f) = False Then lst.Add(f)
Next
dr.Lines("代理案件") = lst
Next