主题：[求助]如何筛选两列的重复值？

Dim str As New List (Of String)
Dim id As String
For Each r As Row In e.Table.Rows
    If str.Contains(r("职务") & ",,," & r("性别") & r("尊称")) = False Then
        str.Add(r("职务") & ",,," & r("性别") & r("尊称"))
        id + = r("_Identify") & ","
    End If
Next
e.Table.Filter = "_Identify In (" & id.Trim(",") & ")"
id.Trim

代码好复杂好经典，虽然看不懂，先复制来，回家研究个把月