“删除重复项”功能不会删除所有重复项

Question 1

数据透视表允许混合单元格内容类型。但是，由于它是一种摘要工具，因此它还会按组或重复项收集条目。按原样从您的数据创建数据透视表，它会生成一个包含 300 个条目的列表：

在此处输入图片描述

Answer

数据透视表允许混合单元格内容类型。但是，由于它是一种摘要工具，因此它还会按组或重复项收集条目。按原样从您的数据创建数据透视表，它会生成一个包含 300 个条目的列表：

在此处输入图片描述

Question 2

我已经在您的列表的 12 个副本上尝试了 Right(a1;x) 函数（记录长度从右侧的 1 到 12 个字符）。我的想法是看看它是否与记录的长度有关。
将公式向下扩展后，我在使用删除重复命令之前仅复制/粘贴了值。每次都运行良好！（删除了 300 个重复值。剩余 300 个值）因此，尽管我仍然不知道发生了什么，但解决您的问题的一个方法是在您的列表中使用 Right(a1,12)，然后仅从结果列表中复制/粘贴值。仅从第一个列表中复制/粘贴值是行不通的。您必须使用公式将解决方案保留在 Excel 中（或者您可以按照评论中提到的方式在文本文件中复制/粘贴）。

Answer

我已经在您的列表的 12 个副本上尝试了 Right(a1;x) 函数（记录长度从右侧的 1 到 12 个字符）。我的想法是看看它是否与记录的长度有关。
将公式向下扩展后，我在使用删除重复命令之前仅复制/粘贴了值。每次都运行良好！（删除了 300 个重复值。剩余 300 个值）因此，尽管我仍然不知道发生了什么，但解决您的问题的一个方法是在您的列表中使用 Right(a1,12)，然后仅从结果列表中复制/粘贴值。仅从第一个列表中复制/粘贴值是行不通的。您必须使用公式将解决方案保留在 Excel 中（或者您可以按照评论中提到的方式在文本文件中复制/粘贴）。

Question 3

我在每个版本的 Excel 中都遇到过这个问题，但我还没有看到关于为什么会发生这种情况的解释。无论如何，有一个纠正这种异常的过程。以下示例来自这样一种情况：我将一系列零件编号（超过 30,000 条记录）从一份报告复制到单独的工作表中，然后删除重复项（在将数据复制到新选项卡后拾取）：

1) 始终先对数据进行排序（从小到大）。如果您有多个字段，请确保按要从中删除重复项的字段进行排序：

'Determine Last Row of Data To Set Range
Cells(1,1).Select
Selection.End(xlDown).Select
lastRow = ActiveCell.Row

'Define And Select Ranges For Duplicate Removal
Set mNumRange = Range(Cells(1, 1), Cells(lastRow, 1))

'Sort Range For Futile Attempt At Duplicate Removal
mNumRange.Select
ActiveWorkbook.Worksheets("TAB_3").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("TAB_3").Sort.SortFields.Add Key:=mNumRange, _
               SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("TAB_3").Sort
   .SetRange mNumRange
   .Header = xlYes
   .MatchCase = False
   .Orientation = xlTopToBottom
   .Apply
End With

2) 在选定字段上运行“数据 -> 删除重复项”。这将删除绝大多数重复项：

'Partially Remove Duplicates <sigh>
mNumRange.Select
With Selection
   .RemoveDuplicates Columns:=1, Header:=xlYes
End With
Cells(1, 1).Select

3）重新定义新的范围（剩余数据仍按从小到大的顺序排列）

'Redefine Range After Partial Duplicate Removal
Selection.End(xlDown).Select
lastRow = ActiveCell.Row
Set mNumRange = Range(Cells(2, 1), Cells(lastRow, 1))

4) 现在，逐行运行程序以删除剩余的重复项。由于数据按从小到大的顺序排序，因此任何重复项都将位于相邻的行中：

'Execute Row-By-Row Duplicate Removal Procedure <sigh>
rowCounter = 2
deleteCounter = 0
Cells(1, 1).Select
Application.ScreenUpdating = False
Do
Cells(rowCounter, 1).Select
   If ActiveCell.Value = "" Then
      Cells(1, 1).Select
      Exit Do
   End If
   If ActiveCell.Value = ActiveCell.Offset(-1, 0).Value Then
      Selection.EntireRow.Delete
      deleteCounter = deleteCounter + 1
      rowCounter = rowCounter - 1
   End If
rowCounter = rowCounter + 1
Loop
Application.ScreenUpdating = True
MsgBox deleteCounter & " ADDITIONAL DUPLICATES DELETED", vbOKOnly

MsgBox 将让您知道删除了多少个额外的重复项。

Answer