excel - 删除重复项但保留 excel vba 宏中的第一个位置

Question

我希望删除重复的行，但保留第一行 Using vba macros in excel 2010。

这是初始信息

   A | B  
1. A | 1  
2. A | 1
3. A | 1
4. A | 1
5. B | 2
6. B | 2
7. B | 2

运行宏后

   A | B
1. A | 1  
2.   | 1
3.   | 1
4.   | 1
5. B | 2
6.   | 2
7.   | 2

你能帮我吗！

标签： excelvbaduplicatesretain

Answer 1

不优雅，但又快又脏：

Dim iLastRow As Integer

iLastRow = 13
Range("h1:h" & iLastRow).Formula = "=if(countif(a$1:a1,a1)>1,"""",a1)"
Range("a1:a" & iLastRow).Value = Range("h1:h" & iLastRow).Value
Range("h1:h" & iLastRow).Clear