日常工作中的工作表中經常會有重複記錄，清除這些重複記錄是一個繁瑣的工作，即使在排序之後再進行手工篩選，也經常會出現遺漏，而使用VBA程式碼就可以快速準確地刪除重複記錄。

待處理資料如下：

列1列2111223233536

功能實現步驟如下：

1、快捷鍵Alt+F11開啟VBA介面，開啟"插入"選單，插入模組，輸入如下程式碼：

Sub RemoveDuplicateRecord()
' 快速刪除重複記錄
Dim Row0 As Long, Row1 As Long
With ActiveSheet
    Row0 = .Cells(1048576, 1).End(xlUp).Row
    .UsedRange.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
    Row1 = .Cells(1048576, 1).End(xlUp).Row
End With
MsgBox "共刪除" & Row0 - Row1 & "(" & Row0 & "-" & Row1 & ")" & "條記錄", vbInformation, "提示"
End Sub

2、"開發工具"選項卡"控制元件"中"插入"按鈕控制元件，指定巨集為RemoveDuplicateRecord然後確定退出對話方塊
3、修改按鈕控制元件顯示名為"刪除重複"

到現在一起準備妥當，單擊"刪除重複"按鈕試試。執行結果如圖

或者快捷鍵 Alt+F8 直接執行巨集