Dim s As String For Each r As Row In Tables("表A").Rows Dim drs As List(Of DataRow) drs = DataTables("表B").Select("[工号] = '" & r("工号") & "' ") If drs.count > 1 For Each dr As DataRow In drs s = s & "'" & dr("工号") & "'," Exit For Next End If Next Tables("表A").Filter = "工号 in (" & s.trim(",") & ") "