當前位置:成語大全網 - 新華字典 - excel保留唯壹值 A列有重復值 保留唯壹值 B列數值 都不相同要求! 刪除A列重復數據!

excel保留唯壹值 A列有重復值 保留唯壹值 B列數值 都不相同要求! 刪除A列重復數據!

此問題可以通過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、代碼運行後實現效果截圖