计算机一级考试:Excel中删除重复数据

请仔细阅读并修改相关数据。
1。打开有重复数据的Excel
2。Alt+F11打开宏编辑器
3。双击此工作簿
4。粘贴以下代码并运行它:
Sub Delete duplicate data()
' Delete col column。在本例中，标题为sheet1的EXCEL表格中A列(从A2单元格开始)的重复数据被删除
应用程序。' Screen updating = false
'下面三行的结束值可以根据实际情况修改
Dim sheets caption As String:sheets caption = " sheet 1 "
Dim Col As String:Col = " A "
Dim StartRow As Integer:StartRow = 2
下面不需要修改
dimendrow As Integer:endrow = sheets(sheets caption)。范围(列&“65536”)。结束(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(Sheets caption)
Do
Count _ 1 = Count _ 1+1
For j = StartRow To I-1
If。范围(列和列)=。range(Col & j)Then
Count _ 1 = Count _ 1-1
。range(Col & I). entire row . delete
EndRow = Sheets(Sheets caption)。范围(列&“65536”)。结束(xlUp)。row[/ br/]I = I-1
Count _ 2 = Count _ 2+1
Exit For
End If
Next
I = I+1
循环，而I < End row+1
End
MsgBox "有" & Count_1 & "唯一数据"
MsgBox "删除" & count_2 & "重复数据"
应用程序.屏幕更新= true [/br