- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 过滤掉不重复再复制到临时表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127388)
-- 发布时间：2018/11/13 8:01:00
-- 过滤掉不重复再复制到临时表
此主题相关图片如下：滤掉不重复.jpg
-- 发布时间：2018/11/13 8:06:00
--
用集合判断一下
-- 发布时间：2018/11/13 8:28:00
--
谢谢你的解答 能具体的吗 新手不太懂
-- 发布时间：2018/11/13 8:44:00
--
循环每一行，然后比较，如
Dim ls As new List(Of String)
For Each r As Row In Tables("表A").rows
Dim s As String = r("第一列").split("-")(0)
If ls.Contains(s) = False Then
ls.add(s)
End If
Next
For Each s As String In ls
msgbox(s)
Next