请大神帮忙，我需要删除M列包含65535:65535的行，数据量很大！

zhj1004

请大神帮忙，我需要删除M列包含65535:65535的行，数据量很大！我这要处理100万行数据。。。我已经找到代码，但是运行很慢，请大神帮忙用字典写一段代码，谢谢！！！！

格物郅知

洛阳联通？

microyip

1. Sub chuanla()
   
2.     Dim vData As Variant, nRow As Double, rRNG As Range
   
3.    
   
4.     With Sheet1
   
5.         vData = .UsedRange.Offset(, 13).Resize(, 1).Value
   
6.         For nRow = 1 To UBound(vData)
   
7.             If vData(nRow, 1) Like "*65535:65535*" Then
   
8.                 If rRNG Is Nothing Then
   
9.                     Set rRNG = .Cells(nRow, "M")
   
10.                 Else
    
11.                     Set rRNG = Union(rRNG, .Cells(nRow, "M"))
    
12.                 End If
    
13.             End If
    
14.         Next
    
15.     End With
    
16.     If Not rRNG Is Nothing Then rRNG.EntireRow.Delete
    
17. End Sub

复制代码

microyip

附上附件以供参考

格物郅知

我测试了一下，现有数据测试结果如图，代码都在附件里，按钮你自己改下，上传之前忘记了不想重新上传，
PS:1、Micro大佬的有个小BUG，我随便改了下，不保证完全修复。2、大数据下的优劣你自己测试。

格物郅知

目前这一万多条数据，用循环转存的方式似乎更快，下面代码测试1.7秒

1. Sub 转存()
   
2. t = Timer
   
3. For i = 1 To Sheet1.Range("M1048576").End(3).Row
   
4.     If Sheet1.Range("M" & i) Like "*65535:65535*" Then
   
5.     Else
   
6.     r = Sheet3.Range("M1048576").End(3).Row
   
7.     Sheet3.Range("A" & r & ":AA" & r) = Sheet1.Range("A" & i & ":AA" & i).Value
   
8.     End If
   
9. Next
   
10. MsgBox "耗时：" & Format(Timer - t, "#0.00") & " 秒"
    
11. End Sub
    

复制代码

格物郅知

附件供参考（咋回事，传了四次没传成功）

zhj1004

谢谢大佬们！！！

zhj1004

格物郅知 !!老师，你发的表，如果把sheet3的内容清空，在运行模块4，sheet3只出现一行，这一行是sheet1最后一行，不知道咋回事？请老师帮忙！！谢谢

格物郅知

zhj1004 发表于 2020-1-14 12:09
格物郅知 !!老师，你发的表，如果把sheet3的内容清空，在运行模块4，sheet3只出现一行，这一行是sheet1最后 ...

这句改成Sheet3.Range("A" & r & ":AA" & r) = Sheet1.Range("A" & i & ":AA" & i).Value
这样，Sheet3.Range("A" & r+1 & ":AA" & r+1) = Sheet1.Range("A" & i & ":AA" & i).Value