ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 223|回复: 11

[求助] 请大神帮忙,我需要删除M列包含65535:65535的行,数据量很大!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-1-14 08:54 | 显示全部楼层 |阅读模式
请大神帮忙,我需要删除M列包含65535:65535的行,数据量很大!我这要处理100万行数据。。。我已经找到代码,但是运行很慢,请大神帮忙用字典写一段代码,谢谢!!!!

工具.rar

649.38 KB, 下载次数: 11

TA的精华主题

TA的得分主题

发表于 2020-1-14 09:01 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2020-1-14 09:11 | 显示全部楼层
  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
复制代码

TA的精华主题

TA的得分主题

发表于 2020-1-14 09:13 | 显示全部楼层
附上附件以供参考

工具(by.micro).rar

647.57 KB, 下载次数: 11

TA的精华主题

TA的得分主题

发表于 2020-1-14 10:00 | 显示全部楼层
本帖最后由 格物郅知 于 2020-1-14 10:10 编辑

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

图片.png

工具.zip

794.3 KB, 下载次数: 0

TA的精华主题

TA的得分主题

发表于 2020-1-14 10:35 | 显示全部楼层
目前这一万多条数据,用循环转存的方式似乎更快,下面代码测试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
复制代码

TA的精华主题

TA的得分主题

发表于 2020-1-14 10:38 | 显示全部楼层
本帖最后由 格物郅知 于 2020-1-14 10:40 编辑

附件供参考(咋回事,传了四次没传成功)

工具-4.rar

1.74 MB, 下载次数: 2

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-14 11:08 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-14 12:09 | 显示全部楼层
格物郅知 !!老师,你发的表,如果把sheet3的内容清空,在运行模块4,sheet3只出现一行,这一行是sheet1最后一行,不知道咋回事?请老师帮忙!!谢谢

TA的精华主题

TA的得分主题

发表于 2020-1-14 14:34 | 显示全部楼层
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
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-2-27 16:54 , Processed in 0.397449 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表