Excel表里,如何快速去除相同单号,对应的记录?

发布网友发布时间：2022-04-30 20:17

我来回答

共5个回答

热心网友时间：2022-07-01 02:43

看我的图片，用C列作辅助列。

第一步：

在C2输入公式：

=IF(COUNTIF(A$2:A2,A2)<COUNTIF(A:A,A2),0,"")

然后下拉填充公式。

C列得出0的是要删除的行，C列得出空白文本的是要保留的行。

第二步：

先选中C列，然后点顶部的“查找和选择”，再点“定位条件”。

选中“公式”，并把“文本”取消掉勾选。

然后点击确定。

这样就选中了C列所有为数字的单元格，排除了文本单元格。

第三步：

在被选中的任意一个单元格上，点击鼠标右键---删除---选择整行---确定。

热心网友时间：2022-07-01 02:43

复制A列粘贴到E列。选择E列，删除重复值。

在F2中输入或复制粘贴下列公式

=LOOKUP(1,0/($A$2:$A$12=$E2),B$2:B$12)

下拉填充，右拉填充

或

2. 在D2中输入或复制粘贴下列公式

=COUNTIF(A$2:A2,A2)=COUNTIF(A:A,A2)

下拉填充

筛选D列结果为TRUE的，按下F5键或CTRL+G，定位条件，可见单元格，确定。复制可见单元格区域粘贴到其位置

热心网友时间：2022-07-01 02:44

用VBA吧，一劳永逸！！！
Sub 删除相同单号保留最后一次()
ThisWorkbook.Activate

Dim shtName$, i&
shtName = "定单表" '换成实际的工作表名称即可
Sheets(shtName).Activate
If ActiveSheet.AutoFilterMode Then Cells.AutoFilter: Cells.AutoFilter
For i = Cells(rows.Count, "A").End(xlUp).Row - 1 To 2 Step -1
If Cells(i, "A").Value = Cells(i + 1, "A").Value Then rows(i).Delete
Next
End Sub

热心网友时间：2022-07-01 02:44

如果是excel2007可以利用高级筛选，一次性把最后一条全部筛选出来，否则用辅助列+筛选，d2=if(countifs(a3:a1000,a2,b3:b1000,b2)=0,1,"")点d2，鼠标停在d2右下角变成小十字双击，筛选d列为1，选中abc3列筛选结果复制粘贴到另一个工作表即可

热心网友时间：2022-07-01 02:45

插入一个A列，在新的A2单元格输入公式：
=1*(COUNTIF(B$2:B2,B2)=1)
复制并下拉，然后得到数值为1的就是需要保留的……