从许多Excel工作表中删除重复项

时间:2016-04-13 09:27:45

标签: excel vba excel-vba

我有一个问题,是否有任何快速方法可以删除两个Excel电子表格中的重复行。搜索后,我可以通过比较电子表格(VBA)中的相同行来完成。但我想检查一行中的行是否包含在两个中。如果两个中存在完全相同的行,则应将其删除。到目前为止,如果它们是相同的行(例如1和1),我可以这样做。 提前感谢您的任何帮助。

1 个答案:

答案 0 :(得分:0)

我可以想到一个解决方法:

  1. 在每一行的末尾创建一个列,该列是该特定行的所有列的串联:下面列出的是两个excel表上的两个表:
  2. Sheet 1中

    A   B   C   D(Concat)
    1   2   3   123
    4   5   6   456
    7   8   9   789
    1   3   5   135
    4   3   2   432 


    Sheet 2中

    A   B   C   D(Concat)
    2   3   4   234
    1   1   1   111
    1   2   3   123
    2   2   2   222
    4   5   6   456
    1. 我们现在将根据最后一个连接列识别重复的行。使用第二张中的公式
      =IF(ISNUMBER(MATCH(D4,Sheet1!D:D,0)),"DUP","NONDUP")
      ,我们可以识别sheet1中已存在的行,而不管sheet1 wrt sheet2中行的顺序如何。
    2. Sheet2上的结果显示如下:

      A   B   C   D   E(Result)
      2   3   4   234 NONDUP
      1   1   1   111 NONDUP
      1   2   3   123 DUP
      2   2   2   222 NONDUP
      4   5   6   456 DUP