Excel中怎么利用宏把多个工作表的数据一起去除重复项?
发布网友
发布时间：2022-04-23 14:10
共3个回答
热心网友
时间：2023-10-17 15:48
方法/步骤
如下图，假设，在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窗口，即可看到效果了！
热心网友
时间：2023-10-17 15:48
方法/步骤
如下图，假设，在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窗口，即可看到效果了！
热心网友
时间：2023-10-17 15:48
且去掉重复项，可以按以下方法办理：
1、在产品1表格中编码右边一列B2单元格任意输入一个数字，本文输入0。
2、然后返回汇总表格，选中A2单元格。
3、选择菜单栏上的数据，再点击右侧的合并计算。
4、出现合并计算窗口。
5、再返回产品1表格。
6、选中A2到B17单元格。
7、此时，点击合并计算窗口上的添加按钮。
8、所选则的单元格就添加到了合并计算窗口中的所有引用位置栏里。
9、按照同样的方法，将产品2和产品3所有的编码数据添加进去。
10、再回到汇总表格，勾选上合并计算窗口上的最左侧，点击确定。
11、结果出来了，就是所有不含重复项的编码。
热心网友
时间：2023-10-17 15:48
且去掉重复项，可以按以下方法办理：
1、在产品1表格中编码右边一列B2单元格任意输入一个数字，本文输入0。
2、然后返回汇总表格，选中A2单元格。
3、选择菜单栏上的数据，再点击右侧的合并计算。
4、出现合并计算窗口。
5、再返回产品1表格。
6、选中A2到B17单元格。
7、此时，点击合并计算窗口上的添加按钮。
8、所选则的单元格就添加到了合并计算窗口中的所有引用位置栏里。
9、按照同样的方法，将产品2和产品3所有的编码数据添加进去。
10、再回到汇总表格，勾选上合并计算窗口上的最左侧，点击确定。
11、结果出来了，就是所有不含重复项的编码。
热心网友
时间：2023-10-17 15:49
写代码来解决吧，
需要具体的文件！
热心网友
时间：2023-10-17 15:49
写代码来解决吧，
需要具体的文件！
