主题：筛选

 要先对你的表数据进行处理。

For Each dr As DataRow In DataTables("表A").datarows
    Dim str As String = ""
    For Each s As String In dr("第四列")
        If str.Contains(s) = false Then
            str = str & s
        End If
    Next
    dr("第四列") = str
Next

 然后看 http://www.foxtable.com/webhelp/scr/1478.htm