主题：不重复值

处理一下你表里面的空格字符

Dim t As Table = Tables("表a")
For Each c As Col In t.cols
    If c.IsString Then
        For Each r As Row In t.rows
            r(c.name) = r(c.name).trim()
        Next
    End If
Next