主题：[求助]请问这个地址如何根据编号相同只打印一次？

先做多列不重复筛选：

Tables("表A").Filter = ""
Dim id As String
Dim lst As New List(Of String)
Dim str As String
For Each r As Row In Tables("表A").Rows
    str = ""
    For Each s As String In "编号|姓名|地址".Split("|")
        str + = r(s)
    Next
    If lst.Contains(str) = False Then
        lst.Add(str)
        id + = r("_Identify") & ","
    End If
Next

If Id > "" Then
    Tables("表A").Filter = "_Identify In (" & id.Trim(",") & ")"

End If