Dim s As String = "'',"
For Each r As Row In Tables("表A").Rows
s &= "'" & r("第一列") & "|" & r("第二列") & "',"
Next
vars("s") = s.trim(",")
msgbox(vars("s"))
------------
"第一列+'|'+第二列 not in (" & vars("s") & ")"
加好友 
发短信
Post By：2018/6/11 17:47:00 [显示全部帖子]
