按要求删除重复数据，感觉有点小复杂，求帮助！

流浪小生

各位大佬，VBA能否按要求删除重复数据，感谢！！！具体要求如下：

11

xuqing8331

看是否是楼主需要的

流浪小生

xuqing8331 发表于 2019-11-8 10:56
看是否是楼主需要的

老师好，我忘记说了，如果C列时间不一样，判断为不是重复数据，不需要删除，老师能否修改下？麻烦了

leoparddi

流浪小生 发表于 2019-11-8 11:19
老师好，我忘记说了，如果C列时间不一样，判断为不是重复数据，不需要删除，老师能否修改下？麻烦了

1. Sub asd()
   
2.     For m = 2 To Range("A65536").End(3).Row - 1
   
3.         For n = Range("A65536").End(3).Row To m + 1 Step -1
   
4.             If m = Range("A65536").End(3).Row Then
   
5.                 Exit For
   
6.             ElseIf Cells(m, 1) = Cells(n, 1) And Cells(m, 3) = Cells(n, 3) Then
   
7.                 Rows(n).Delete
   
8.             End If
   
9.         Next n
   
10.     Next m
    
11. End Sub

复制代码

保留的是第一个出现的数据，就会这么点。数据多了会卡，简单的不会写，哈哈

流浪小生

leoparddi 发表于 2019-11-8 12:25
保留的是第一个出现的数据，就会这么点。数据多了会卡，简单的不会写，哈哈

好吧，能不能在二楼的代码上改下，c列时间不一致，判断为不是重复数据。

leoparddi

流浪小生 发表于 2019-11-8 12:53
好吧，能不能在二楼的代码上改下，c列时间不一致，判断为不是重复数据。

If Cells(I, 1).Value = Cells(I - 1, 1).Value Then

改成

If Cells(I, 1).Value = Cells(I - 1, 1).Value   And Cells(I, 3).Value = Cells(I - 1, 3).Value Then