EXCEL中vba删除指定行行的问题

来源：蜘蛛抓取(WebSpider) 时间：2018-01-31 03:31 标签： vba 删除重复行
删除工作表的重复行_百度文库
赠送免券下载特权
10W篇文档免费专享
部分付费文档8折起
每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
删除工作表的重复行
阅读已结束，下载本文需要
想免费下载更多文档？
定制HR最喜欢的简历
你可能喜欢求教：VBA在Excel中删除行
[问题点数：20分，结帖人DarrenFu1019]
求教：VBA在Excel中删除行
[问题点数：20分，结帖人DarrenFu1019]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2014年9月 其他开发语言大版内专家分月排行榜第二2012年3月 其他开发语言大版内专家分月排行榜第二2010年5月 其他开发语言大版内专家分月排行榜第二
2013年5月 其他开发语言大版内专家分月排行榜第三
2014年9月 其他开发语言大版内专家分月排行榜第二2012年3月 其他开发语言大版内专家分月排行榜第二2010年5月 其他开发语言大版内专家分月排行榜第二
2013年5月 其他开发语言大版内专家分月排行榜第三
匿名用户不能发表回复！|没有更多推荐了，
不良信息举报
举报内容：
VBA-常用函数集锦-13-Excel多行或多列删除
举报原因：
原文地址：
原因补充：
最多只允许输入30个字
加入CSDN，享受更精准的内容推荐，与500万程序员共同成长！查看: 2878|回复: 11
关于用VBA删除多余行的问题.
阅读权限20
在线时间 小时
[local]3[/local][local]2[/local]附件中sheet1为需要删除多余行的共2万多行数据，sheet2为我用数据透视表统计出的sheet1中A列code出现行数超过150行的code。现在要实现的目的是，将sheet2中的code在sheet1中筛选出来，只保留一行，用VBA有没有办法实现呢？谢谢！
11:15 上传
点击文件名下载附件
203.25 KB, 下载次数: 12
阅读权限50
在线时间 小时
一定在要在sheet1上删除吗?
我把结果拿出来,放到别一个表中,把sheet1整个表删除,可以?
阅读权限20
在线时间 小时
可以哈，只要能得到结果就可以。
阅读权限90
在线时间 小时
高级筛选就可以了。
阅读权限90
在线时间 小时
或者可以用代码。
11:53 上传
点击文件名下载附件
209.51 KB, 下载次数: 66
阅读权限20
在线时间 小时
& & & & & & & &
谢谢，得到了我想要的结果，能不能麻烦详细的解释一下呢，不是很明白代码，谢谢！
阅读权限20
在线时间 小时
我运行了一下程序，好像跟我要的结果有点出入。我只想将出现行数超过150行的精简为一行，但其他的还是保留，并不是所有重复的都只保留一行。
阅读权限90
在线时间 小时
Private Sub CommandButton1_Click()
& & Application.ScreenUpdating = False
& & Dim i&, Rng As Range, d As Object, data
& & Set d = CreateObject(&scripting.dictionary&)
& & Set Rng = Range(&A1&, Range(&A65536&).End(xlUp))
& & data = Rng
& & For i = 2 To UBound(data)
& && &&&d(data(i, 1)) = d(data(i, 1)) + 1
& & Next i
& & For i = 2 To UBound(data)
& && &&&If d(data(i, 1)) & 150 Then
& && && && &d(data(i, 1)) = 0
& && &&&ElseIf d(data(i, 1)) = 0 Then
& && && && &data(i, 1) = Null
& && &&&End If
& & Next i
& & Rng = data
& & Rng.SpecialCells(xlCellTypeBlanks).Delete 3
& & Set Rng = Nothing
& & Set d = Nothing
& & Application.ScreenUpdating = True
[ 本帖最后由 ningyuanchao 于
21:55 编辑 ]
阅读权限20
在线时间 小时
非常感谢，快达到目标了哈。但是我还想将这些超过150行的记录至少保留一行原来的记录，上面这段程序是将超过150的记录全部都删除了，可不可以实现呢？
阅读权限20
在线时间 小时
thank you very much
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师excel vba 删除空白单元格所在的行_百度知道
excel vba 删除空白单元格所在的行
单击click控件，查找某一列的单元格，将空白的单元格中所在的行删除。实现的效果为：这只是一个简单示例，具体数据会有很多列，上百行。但是只需要查找关键列，如“姓名”中的空白单元格。望高人指点。
我有更好的答案
假设你要查找的空白单元格在B列Sub my()Dim i As LongFor i = 1 To [A65536].End(xlUp).Row
If Cells(i, 2) = && Then
'这里的2就是你的列数，可以自己替换
Rows(i & &:& & i).Delete Shift:=xlUpEnd IfNextEnd Sub
控件在sheet1，数据在sheet2，该如何实现？
Dim i As LongFor i = 1 To sheets(1).[A65536].End(xlUp).Row
If sheets(1).Cells(i, 2) = && Then
'这里的2就是你的列数，可以自己替换
sheets(1).Rows(i & &:& & i).Delete Shift:=xlUpEnd IfNext
感谢高人，你的代码的确可以实现我的要求，但是在我使用的时候发现了一个问题。在我录入了一个60多行的数据时，使用该功能控件，点击一次不能把所有应删除的行删除，而是点了很多次才都删完。不知道是什么问题。
采纳率：62%
来自团队：
Sub&删除行()&&&&For&i&=&[b65536].End(3).Row&To&2&Step&-1&&&&&&&&If&Cells(i,&2)&=&&&&Then&Rows(i&&&&:&&&&i).Delete&Shift:=xlUp&&&&NextEnd&Sub
Sub 空值则删除整行()With ActiveSheetFor i = .[a65536].End(3).Row To 1 Step -1
'这里的1是你的表头行数If .Cells(i, 2) = && Then .Rows(i).Delete
'这里的2就是你的列数，可以自己替换NextEnd WithEnd Sub
1条折叠回答
为您推荐：
其他类似问题
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 vba 删除重复行 的文章

 

随机推荐