主题：[求助]单元格多行内容去重

请老师帮助完善一下代码，谢谢！

此主题相关图片如下：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