问题不是特别清楚
在数据选项卡种有删除重复项的选项,如图所示,选中对象,点击即可
假设要删除的重复项目在表sheet1的A列
按ALT+F11键,调出VB,按菜单上的“插入”。。“模块”
把以下代码复制到代码区:
Sub 删除A重复()
For i = 1 To Sheet1.Range("A65536").End(xlUp).Row
For j = i + 1 To Sheet1.Range("A65536").End(xlUp).Row
If Range("A" & i) = Range("A" & j) Then
Sheet1.Rows(j).Delete xlUp
End If
Next
Next
End Sub
按F5运行
2007及以上版本 删除重复项
或
利用高级筛选 勾选 选择不重复的记录
或
用INDEX+SMALL+MATCH函数