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

请仔细阅读并修改相关数据。

1、打开有重复数据的EXCEL

2、Alt+F11 打开宏编辑器

3、左边双击：ThisWorkBook

4、贴入以下代码并运行即可：

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

5、按F5键运行即可

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

下载Word文档到电脑，方便收藏和打印[全文共692字]

编辑推荐：

下载Word文档