以你的A列 和 D 列 為重復依據
1、A列排序
2、工具欄-----宏------編輯器-----雙擊Sheet1表------右側空白處輸入代碼
Option Explicit
Private Sub CommandButton1_Click()
刪除重復行
End Sub
3、本對話框------工具欄----插入----模塊-----雙擊模塊1-----右側輸入代碼
Option Explicit
Sub 刪除重復行()
Dim iR As Long
Application.ScreenUpdating = False
iR = [a65536].End(xlUp).Row
Range("F3:F" & iR).FormulaR1C1 = "=IF(AND(RC[-3]=R[-1]C[-3],RC[-5]=R[-1]C[-5]),NA(),"""")"
Range("F1:F" & iR).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
Columns("F:F").ClearContents
Application.ScreenUpdating = True
End Sub
關閉 該對話框
4、右鍵點擊excel工具欄空白處------選擇 控件工具箱------單擊里面的 命令按鈕------在excel表格空白處畫出按鈕--------右擊按鈕----查看代碼----雙擊sheet1----右側出現第一個代碼------雙擊模塊1-----右側出現第二個代碼-----關閉該對話框
5、點擊 控件工具箱 左上角 按鈕 既 推出設計模式
6、點擊按鈕------A列和D列同時重復的數據刪除多余的
**********************************************為安全考慮 你要做備份表**********************8****************
