[已解决]一列删重

水中游

一列里面有重复内容，想从下往上删除重复的，写了个宏运行就整列都删了，大家帮忙看看哪里的问题呢？
Sub 删重复()
h = [h65536].End(3).Row
For i = h To 2 Step -1
aa= Cells(i, "h")
hh = [h65536].End(3).Row
For ii = 2 To hh - 1
If Cells(ii, "h") = aa Then
    Rows(i).Select
    Selection.Delete Shift:=xlUp
Exit For
End If
Next
Next
End Sub

最佳答案

月排行榜 / 总排行榜

ghostjiao

2014-6-17 19:03

最简单应该是利用自带的删除重复项删除

1. Sub demo()
   
2.     Dim irow&
   
3.     irow = Cells(Rows.Count, "h").End(xlUp).Row
   
4.     Range("H1:H" & irow).RemoveDuplicates Columns:=1
   
5. End Sub

复制代码

跳转到最佳答案楼层

ghostjiao

这个循环很有问题...举个例子说吧 假如这列数据最后2个数据都是不重复的，在第一次循环后，最后一个数据不会删除，这个时候h的值不变，进行第二次循环，aa=cells(h-1,"h")  而判断重复的循环是从ii=2 to h-1  循环到 h-1的时候就把cells(h-1,"h")这1行删除了，但实际是不重复的

ghostjiao

最简单应该是利用自带的删除重复项删除

1. Sub demo()
   
2.     Dim irow&
   
3.     irow = Cells(Rows.Count, "h").End(xlUp).Row
   
4.     Range("H1:H" & irow).RemoveDuplicates Columns:=1
   
5. End Sub

复制代码

水中游

ghostjiao 发表于 2014-6-17 19:03
最简单应该是利用自带的删除重复项删除

不好意思，最近有事情没来得及看，非常感谢！