合成一个条件，赋值到全局变量，如
Dim s As String = ""
For Each r As Row in Tables("表A").Rows
s &= "'" & r("第一列") & "',"
Next
vars("s") = s.trim(",")
msgbox(vars("s"))
----------------------
然后，选择数据的窗口根据vars("s")的值，合成筛选条件，筛选数据，如
"第一列 not in (" & vars("s") & ")"
加好友 
发短信
Post By：2018/5/18 10:37:00 [只看该作者]
