删除重复项，但在excel vba宏中保留第一位

问题描述

我希望删除重复的行，但保留第一行 在Excel 2010中使用vba宏。

这是初始信息

   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

请你帮我！

解决方法

不优雅，但又快又脏：

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