Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3827|回复: 1

[已解决]本意是删除工作表除第一行各最下面的合计行外全部删除

[复制链接]
发表于 2014-12-18 18:42 | 显示全部楼层 |阅读模式
本帖最后由 zxc1152468 于 2014-12-18 19:15 编辑

本意是删除工作表除第一行各最下面的合计行外全部删除,做代码后发现竟然删除了cd
两列,请教代码哪里有问题该怎么改 删除行.zip (10.02 KB, 下载次数: 9)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-12-18 19:11 | 显示全部楼层    本楼为最佳答案   
Sub test()
    Dim x, y
    Set x = ActiveSheet.UsedRange.Find("品名", lookat:=xlWhole)
    Set y = ActiveSheet.UsedRange.Find("合计", lookat:=xlWhole)
    If Not x Is Nothing And Not y Is Nothing Then
        x = x.Row + 1
        y = y.Row - 1
        If y > x Then
            Rows(x & ":" & y).Delete    '删除行
'            Rows(x & ":" & y).ClearContents    '清除指定区域的内容
        End If
    End If
End Sub
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 00:53 , Processed in 0.624783 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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