Question

请教，如何使用Excel VBA 删除某列中单元格文字相同的行？

某列1至5行分别是：A、B、C、A、B。删除重复后1至3行分别为A、B、C。谢谢。
产生的结果A、B、C仍然在原列。

Answer 1

从后面往前删除就可以保持前面的位置。

Private Function MyFunction9()
Dim I As Long, J As Long
For I = 1 To Range("A65536").End(xlUp).Row '最大行数
For J = Range("A65536").End(xlUp).Row To I + 1 Step -1 '这里的最大行数看似和上面一样，但是其实它是不一样的，I 的是固定的，J 的是不固定。
If Range("A" & I).Value = Range("A" & J).Value Then Rows(J).Delete
Next
Next
End Function

Answer 2

用公式不行么？公式简单快捷
如数据在A3:A7,
在B3中输入公式：=INDEX(A$3:A$7,MATCH(,COUNTIF(B$2:B2,A$3:A$7),))&"" ,同时按下ENTER键，SHIFT键，和CTRL键，下拉。

Answer 3

数据---删除重复项即可,自带工具即可,不需要用VBA来实现