从多个列表中提取Uniqe值

时间:2016-06-27 13:36:13

标签: excel vba

我一直在寻找一个VBA代码,它将多列相似的项目合并到一个唯一的项目列表中。我已经看到了可以放入实际excel工作簿的代码;但是,我在excel电子表格上看到,考虑到我有120,000多行,它的运行速度非常慢。我的excel电子表格如下:

List1    List2    List3
AAASB    AAASB    AAASB
AAASF    AAASC    AAASF
AAASJ    AAASF    AAASJ
AAASV    AAASJ    AAATQ
AAATB    AAATD    AAATD
AAATD             AAAAC
AAATE             AAATE
                  AAAAD

因此,新列表将包含AAASB,AAASF,AAATD和AAASJ项目,因为这4个项目都在所有三个列表中。

1 个答案:

答案 0 :(得分:0)

你有帮助专栏吗?你可以得到这样的公式:

=IF(AND(COUNTIF(A:A,C2)>=1,COUNTIF(B:B,C2)>=1),TRUE,FALSE)

然后,您可以按TRUE进行过滤,以仅显示C列中的值,这些值在A列和B列中也至少出现一次。