主题：过滤掉不重复再复制到临时表

循环每一行，然后比较，如

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