excel中根据一列进行判断，只保留所有重复行的头一行，其它重复的删除，怎么操作

假设数据在A,B两列

C1单元格输入公式

=INDEX(A:A,SMALL(IF(MATCH(A$1:A$100&"",A$1:A$100&"",)=ROW($1:$100),ROW($1:$100),4^8),ROW(A1)))

数组公式,按下SHIFT+CTRL+ENTER三键结束输入,再下拉复制公式

D1单元格输入公式

=VLOOKUP(C1,A:B,2,)

下拉复制公式

如果不想出现图中的错误值

修改成如下

C1单元格输入公式

=INDEX(A:A,SMALL(IF(MATCH(A$1:A$100&"",A$1:A$100&"",)=ROW($1:$100),ROW($1:$100),4^8),ROW(A1)))&""

数组公式,按下SHIFT+CTRL+ENTER三键结束输入,再下拉复制公式

D1单元格输入公式

=IF(C1="","",VLOOKUP(--C1,A:B,2,))

下拉复制公式

假设第一列在A列。从A1开始
C2输入公式，
=if(a2=a1,"删除","保留")
下拉复制公式，复制C列数据——右键——选择性粘贴——数值，粘贴在原位置。
对ABC列进行筛选。筛选出显示“删除”的行。删除行。

复制----粘贴----F5。。。
Private Function MyFunction()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Range("A" & i).Value = Range("A" & i - 1).Value Then
Rows(i).Delete
End If
Next
MsgBox "完成！"
End Function

如果数据是A和B两列从A1单元格开始的
在C1单元格输入 =IF(A1="","",IF(COUNTIF(A1:A12,A1)<2,A1,"")) 然后向下拖拉再向右拖拉