删除重复但保留在Excel VBA中宏第一位置

Question

I am looking to remove duplicate rows but leave the first line Using vba macros in excel 2010.

This is the initial information

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

after running the macro

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

Can you help me,please!

Answer 1

Not elegant, but quick and dirty:

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