計算機一級考試: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

位律師廻複