excel怎样一次删除（某列数据重复）的行？

发布网友 发布时间：2022-03-06 06:39

我来回答

共3个回答

热心网友 时间：2022-03-06 08:08

看你上的图“长”得象2007版，简单操作为：
选中A、B列，点菜单的 数据，删除重复项，删除A列重复项就可以了。

2003版，稍微麻烦些：
在C1输入 =countif(A$1:A1,A1)，回车后再选中C1，鼠标移到其右下角，双击那个”+“；选中C列，数据，筛选，点C1的下拉框，大于1的，右键，删除，整行。

热心网友 时间：2022-03-06 09:26

看看示范例子，打开的时候选择启动宏（数字证书），可以实现你要的目的的，如果有什么疑问，可以联系QQ 399001
http://www.win-club.net/ray/del.xls

－－－－－

用宏处理这样的问题相对方便一点，有兴趣试试：

一、按ALT+F11 打开VB编辑器

二、双击左边靠上的【工程资源管理器】中的【MS Excel 对象】中的ThisWorkbook，在右边的代码窗口贴入下面的代码：

Sub 删除重复数据()
'以col列为条件删除的重复行数据
'本例是删除标题为sheet1的EXCEL表中以A列（从A2单元格开始）为条件的重复韩国数据
Application.ScreenUpdating = False
'可根据实际情况修改下面三行的结尾值
Dim sheetsCaption As String: sheetsCaption = "Sheet1"
Dim Col As String: Col = "A"
Dim StartRow As Integer: StartRow = 2

'以下不需要修改
Dim EndRow As Integer: EndRow = Sheets(sheetsCaption).Range(Col & "65536").End(xlUp).Row
Dim Count_1 As Integer: Count_1 = 0
Dim count_2 As Integer: count_2 = 0
Dim i As Integer: i = StartRow

With Sheets(sheetsCaption)

Do
Count_1 = Count_1 + 1
For j = StartRow To i - 1
If .Range(Col & i) = .Range(Col & j) Then
Count_1 = Count_1 - 1
.Range(Col & i).EntireRow.Delete
EndRow = Sheets(sheetsCaption).Range(Col & "65536").End(xlUp).Row
i = i - 1
count_2 = count_2 + 1
Exit For
End If
Next
i = i + 1
Loop While i < EndRow + 1
End With

MsgBox "共有" & Count_1 & "条不重复的数据"
MsgBox "删除" & count_2 & "条重复的数据"
Application.ScreenUpdating = True
End Sub

三、回到EXCEL表，运行菜单 【工具】－【宏】－【宏】，选择 删除重复数据 这条宏，然后按执行。

这里有示范例子：
http://www.win-club.net/ray/del.xls

注：为方便，我添加了一个按钮的控件执行这个宏，你点击按钮就可以看到结果了，第二个表有原始数据。

热心网友 时间：2022-03-06 11:01

取消你的筛选，选中全部表格，按A列排序（存在重复字段的列），在空白列如C列的C2写=if(a2=a1,1,"")将C列复制，在C列粘贴（选择粘贴性为数值），再按C列排序，将所有C列=1的数据全部删除。OK了！