拆分没有Duplicates VBA的sting

时间:2016-02-08 05:18:13

标签: vba

Stringtable:

Command Option Shift K

从上面的Stringtable我只需要只有逗号分隔的表名而不重复 如表1,表2,表3,表4作为输出。 我尝试过分离功能,但它确实没有用。任何人都可以帮忙

代码:

Table1.col1 = Table2.Col1
Table1.Col3 = Table3.Col1
Table1.Col4 = Table2.Col6
Table1.Col5 = Table4.Col1
Table1.Col6 = Table3.Col1

2 个答案:

答案 0 :(得分:1)

您已经提取了多个" Table1.col1"," Table2.Col1"等,但还需要另一个Split()来剪切" col1"等等来自表名。

不要在循环中输出结果,因为您还没有删除重复项。将它们添加到列表中,以便在迭代循环和构建输出字符串之前删除重复项

答案 1 :(得分:0)

代码看起来像这样。 首先,ComboBox2将替换为=,因此我们只需拆分一次。然后,分割的数组循环遍历并通过不区分大小写的字符串.进行过滤。最后,table*用于获取唯一条目。 HTH

vba-collection