我有一张包含 3,800 多个内容的 Excel 2010 表格。我想识别 6 列中的重复项，其中许多列包含文本，一些包含 IP 地址和主机名，以便反映准确的数据。我尝试过旧的“删除重复项”、条件格式、使用 VBA 宏以不同颜色突出显示多行、合并列然后执行 COUNTIFS 和 IF。不用说，对于我拥有的数据类型，这些方法都没有奏效。对于这组数据，目标是将列表减少 1,900 个左右，因为我知道很多都是重复的（因为我故意合并了一组旧数据和一组新数据，这样我就可以看到旧笔记）。然而，最新的方法只减少了 100
我希望识别它们，然后能够将它们与原始文件一起进行过滤，然后能够通过突出显示并按删除键轻松地从那里删除重复项。
以前有人做过类似的事情吗？虽然我有技术背景，但我还是个 Excel 初学者，请对新手做出友好的解释。如果有人有具体的想法来解决这种情况，我会很想听听他们的想法吗？
想象一下，再增加 3,000 行。这些就是我拥有的列数，类似类型的数据。
我想根据 A2&B2&E2&J2&L2 减少重复项
谢谢，
昆明市
想象一下，再增加 3,000 行。这些就是我拥有的列数，类似类型的数据。
我想根据 A2&B2&E2&J2&L2 减少重复项
答案1
例如，创建一个新列Q并写入公式：
=A2&B2&E2&J2&L2
将关键列连接在一起，然后将其向下拖动从第一行数据开始（我从第 2 行开始）
在 R 列中写入公式：
=COUNTIF($Q$2:Q3800,Q2)并将其向下拖动
$Q$2:Q3800是用于连接单元格的新列
您可能有超过 Q3800 在数据中写入最后一行但保留$在$Q$2这种情况下您将有 1 表示没有重复的行和第一行表示重复项（其他 2,3,4 ......取决于重复项数量）
最后在 R 列上对数据进行降序排序（4,3,2,1）在这种情况下重复项将显示在开头非重复项显示在末尾（1），您可以删除所有编号 >1 的行
您可以复制您的工作表并在副本上尝试此方法，以防出现错误，初始工作表是安全的
答案2
尝试这个，，
Sub 删除重复项( )
范围("A1:D10").删除重复列:=Array(1)
子目录结束
以上是单行命令。或者使用数据验证来停止重复，在数据验证中选择自定义，公式，=Countif($A$2:$D$100,A2)=1
或者查找重复行，=if(Countifs ($A$2 :$A$100, A2, $B$2 :$B$100,b2)>1,"Duplicate "," Unique ")
使用此代码，
子删除行()
Dim lRow As Long Dim iCntr As String lRow = 20 对于 iCntr = lRow 到 1 步骤 -1 如果 Cells(iCntr, 1) ="重复" 则 Rows(iCntr).Delete End If Next End Sub