Question

Excel中怎么利用宏把多个工作表的数据一起去除重复项？

如图，2月和3月SP数据A、B列一起去除重复项后，结果显示在“去重”工作表中，2月和3月AMS数据A、B列一起去除重复项后，结果也显示在“去重”工作表中





Answer 1

方法/步骤

• 如下图，假设，在A列中存在这样的数据列，请仔细观察数据，是不是存在重复值呢？

  

• 要想删除重复的值，首先，在EXCEL窗口中，我们直接按组合键Alt+F11，弹出如下图的另外一个窗口！

  

• 上图中，默认未弹出代码窗口，请如上图所示，执行“视图”→“代码窗口”，弹出如下图的窗口；

  

• 请输入上图的代码，为方便操作，提供文本代码以供网友复制粘贴！

  Sub DeleteColumnDupes()
  Dim strSheetName As String, strColumnLetter As String

  strSheetName = "Sheet1" ' 删除工作表中的重复行
  strColumnLetter = "A" ' 以 A 列中的重复项作为删除条件

  Dim strColumnRange As String
  Dim rngCurrentCell As Range
  Dim rngNextCell As Range

  strColumnRange = strColumnLetter & "1"

  Worksheets(strSheetName).Range(strColumnRange).Sort _
  Key1:=Worksheets(strSheetName).Range(strColumnRange)
  Set rngCurrentCell = Worksheets(strSheetName).Range(strColumnRange)
  Do While Not IsEmpty(rngCurrentCell)
  Set rngNextCell = rngCurrentCell.Offset(1, 0)
  If rngNextCell.Value = rngCurrentCell.Value Then
  rngCurrentCell.EntireRow.Delete
  End If
  Set rngCurrentCell = rngNextCell
  Loop
  End Sub

  代码输入好之后，直接按F5运行，或者如下图所示点击“运行”按钮即可！

  

• 5

  运行成功之后，退出该窗口，返回EXCEL窗口，即可看到效果了！

Answer 2

且去掉重复项，可以按以下方法办理：
1、在产品1表格中编码右边一列B2单元格任意输入一个数字，本文输入0。
2、然后返回汇总表格，选中A2单元格。
3、选择菜单栏上的数据，再点击右侧的合并计算。
4、出现合并计算窗口。
5、再返回产品1表格。
6、选中A2到B17单元格。
7、此时，点击合并计算窗口上的添加按钮。
8、所选则的单元格就添加到了合并计算窗口中的所有引用位置栏里。
9、按照同样的方法，将产品2和产品3所有的编码数据添加进去。
10、再回到汇总表格，勾选上合并计算窗口上的最左侧，点击确定。
11、结果出来了，就是所有不含重复项的编码。

Answer 3

写代码来解决吧，

需要具体的文件！