此問題可以通過vba來實現
解釋說明如下:
1、原始數據情況:
a列數據有重復項目
2、代碼位置
鼠標右鍵點擊刪除項按鈕,選擇指定宏
如下圖輸入代碼
3、代碼
Sub?按鈕1_Click()Application.ScreenUpdating?=?False?'關閉刷屏
arr?=?[a1].CurrentRegion?'將數據讀入數組,提升讀取效率
Set?Rng?=?Nothing?'rng為了保存重復項
Set?d?=?CreateObject("scripting.dictionary")?'設置字典變量,用於去重
For?J?=?2?To?UBound(arr)?'循環遍歷,查找重復項
If?d.exists(arr(J,?1))?Then?'根據字典裏是否有該值,來確定是否有重復
If?Rng?Is?Nothing?Then?'將重復項,使用union函數,賦值給變量rng
Set?Rng?=?Cells(J,?1).Resize(1,?2)
Else
Set?Rng?=?Union(Rng,?Cells(J,?1).Resize(1,?2))
End?If
Else
d(arr(J,?1))?=?""
End?If
Next?J
If?Not?Rng?Is?Nothing?Then?Rng.Delete?'如果有重復。即刪除
Application.ScreenUpdating?=?True
End?Sub
4、代碼運行後實現效果截圖