求助：如何快速删除重复信息+特定标识行

边城烽火

各位大神，


       放假前，老板要求做个表格，把附件中的A列有重复的数值选出，再选择C列的表格内标识不是”C“的行进行删除。
       我搞了半天，运行时要15分钟，快崩溃了
       哪位帮忙看一下，得整个快速删除行的代码。否则年不好过了！

       跪谢！

cyh3230

用SQL吧, 秒出结果

如果领导非要求vba
直接套个外壳就行

wanao2008

C列的表格内标识不是”C“的行进行删除。
单就这一点，你可以使用排序，让是C的在一起，把不是C的很快就删除了，最多一分钟。

cjc209

2289个            

cjc209

shiruiqiang

表2的自己看看

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.2.6
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Me.Cells(Rows.Count, 1).End(3).Row
   
4.     arr = Me.Range("a1:c" & r)
   
5.     ReDim brr(1 To UBound(arr), 1 To 3)
   
6.     For i = 2 To UBound(arr)
   
7.         If arr(i, 3) = "C" Then
   
8.             s = arr(i, 1)
   
9.             If Not d.exists(s) Then
   
10.                 m = m + 1
    
11.                 brr(m, 1) = s
    
12.                 brr(m, 2) = arr(i, 2)
    
13.                 brr(m, 3) = arr(i, 3)
    
14.             End If
    
15.         End If
    
16.     Next
    
17.     Me.[f2:h10000] = ""
    
18.     Me.Columns(6).NumberFormatLocal = "@"
    
19.     Me.[f2].Resize(m, 3) = brr
    
20.     Set d = Nothing
    
21.     MsgBox "OK！"
    
22. End Sub
    

复制代码

边城烽火

ykcbf1100 发表于 2024-2-6 18:21
参与一下。。。

测试了，好用好用！学习了！

x-xx-xx