Excel 筛选后excel2007删除筛选行行代码怎样写

来源：蜘蛛抓取(WebSpider) 时间：2017-04-05 22:59 标签： 删除筛选的行
TA的最新馆藏查看: 5833|回复: 20
筛选后删除行代码怎样写
阅读权限30
在线时间 小时
如果不用循环语句，要将A列单元格等于“NO”的所在的行删除，代码如何写。录制的宏达不到这种结果。
阅读权限20
在线时间 小时
说个理由，为什么不用循环？
阅读权限20
在线时间 小时
sub test()
&&with sheets(&sheet1&)
& && &.Rows(&1:1&).Insert
& && &.rows(&1:1&).AutoFilter Field:=1, Criteria1:=&NO&
& && &.Cells.SpecialCells(Type:=xlCellTypeVisible).EntireRow.Delete
&&end with
[ 本帖最后由 何彪 于
13:15 编辑 ]
阅读权限30
在线时间 小时
筛选后删除行代码:
Sub delrow()
&&r = Range(&a65536&).End(xlUp).Row
&&Range(&a1:a& & r).AutoFilter Field:=1, Criteria1:=&NO&
&&Cells.SpecialCells(Type:=xlCellTypeVisible).EntireRow.Delete
阅读权限20
在线时间 小时
回复 4楼 xjjun_cy 的帖子
你的代码会删去首行(一般为标题行)
阅读权限30
在线时间 小时
首行标题应改为：Range(&a1:a& & r).AutoFilter Field:=1, Criteria1:=&NO&
Range(&a2:a& & r). .SpecialCells(Type:=xlCellTypeVisible).EntireRow.Delete
[ 本帖最后由 xjjun_cy 于
20:48 编辑 ]
阅读权限95
在线时间 小时
Public Sub tt()
On Error Resume Next
[a:a].SpecialCells(4) = &^-^&
[a:a].Replace &NO&, &&
[a:a].SpecialCells(4).EntireRow.Delete
[a:a].Replace &^-^&, &&
阅读权限30
在线时间 小时
回复 7楼 Zamyi 的帖子
好极了啊，速度好快。谢谢！为什么加第二句和第五句啊，好象第三句和第四句就行了。
阅读权限20
在线时间 小时
回复 7楼 Zamyi 的帖子
太好了，另外一种思路
阅读权限30
在线时间 小时
原帖由 xjjun_cy 于
13:31 发表
首行标题应改为：Range(&a2:a& & r).AutoFilter Field:=1, Criteria1:=&NO&
&&Cells.SpecialCells(Type:=xlCellTypeVisible).EntireRow.Delete
不行，还是会删掉首行啊！
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师如何实现在报表中筛选、隐藏、插入、删除行，序号依然能保持连续？
【问题】如何实现在报表中筛选、隐藏、插入、删除行，序号依然能保持连续？
1、将报表区域转化为表(2003版本中叫列表),利用表的自动填充公式创建计算列的功能，可以实现当在报表中插入行时自动填充公式。
2、利用Subtotal函数第一参数为103时，可以统计报表可见区域的非空单元格(Counta函数的统计功能)
3、由于表(2003版本中的列表)中汇总行默认生成的计数统计公式也是利用Subtotal的103参数，为了避免筛选时末行出错，需要在其后*1或+0，从而避免了筛选状态下Excel会把末行当做汇总行造成出错。
1、光标定位至报表区域内按&Ctrl+L&或&Ctrl+T&创建表
2、A2输入公式=SUBTOTAL(103,B$2:B2)*1
注：创建表快捷键&Ctrl+L&在、2010版通用，&Ctrl+T&仅能在版使用。
附件下载：
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。查看: 12901|回复: 13
高级筛选后被隐藏的行如何删除？
我有一张表，利用高级筛选后，筛选了一万多条重复的记录，但这一万多条没有被删除，而是隐藏了，因此在与其它数据对比上发生问题，因为行号不连续了。我想删除这一万多条记录，使行号连续，还可以减少文件的字节数，应该怎么办？请高手指点。
你能把具体的例子发出来吗
萧湘无痕 发表于
你能把具体的例子发出来吗
传一个吧&&请赐教
20:32 上传
点击文件名下载附件
1.8 KB, 下载次数: 11
楼主看一下　　　　
(138.06 KB, 下载次数: 173)
20:40 上传
附件跟上吧。、、、
20:40 上传
点击文件名下载附件
1.62 KB, 下载次数: 1
利用高级筛选后，出来的结果再利用定位条件-可见单元格-复制-粘贴到其它地方就可以了
sliang28 发表于
利用高级筛选后，出来的结果再利用定位条件-可见单元格-复制-粘贴到其它地方就可以了
最终我也是这样做的& &但是始终觉得还可以怎么样的做吗？？？？？？？？？
zhongwen 发表于
最终我也是这样做的& &但是始终觉得还可以怎么样的做吗？？？？？？？？？
高级筛选就只能做到这里，07以上就直接删除重复项就得到你的要求了。
学习了学习了,
好 学习了~~~~~~~~~~~~~~
Powered by

我要回帖

更多关于 删除筛选的行 的文章

 

随机推荐