求一个定位删除指定内容代码

云朵中的民族

Book1.rar (3.34 KB, 下载次数: 14)

2013-1-1 12:21 上传

点击文件名下载附件

内容是我从透视表拷贝过来的，但我不需要（空白）以下的行，实际中，这个（空白）可能在任意一行，求一个代码能自动查找到这一行的位置，并删除这一行（包括空白行）以下的内容。
非常感谢！

yangyangzhifeng

试试看

1. Sub test()
   
2.     Dim rng As Range
   
3.     Set rng = Range("a:a").Find("(空白)", lookat:=xlWhole)
   
4.     If Not rng Is Nothing Then Range(rng, Cells(Rows.Count, Columns.Count)).ClearContents
   
5. End Sub
   

复制代码

云朵中的民族

yangyangzhifeng 发表于 2013-1-1 12:44
试试看

非常感谢！如果我不删除整行，删除（空白）以下到H列内容，代码该怎么修改，谢谢！

yangyangzhifeng

云朵中的民族 发表于 2013-1-1 13:08
非常感谢！如果我不删除整行，删除（空白）以下到H列内容，代码该怎么修改，谢谢！

试试看

1. Sub test()
   
2.     Dim rng As Range
   
3.     Set rng = Range("a:a").Find("(空白)", lookat:=xlWhole)
   
4.     If Not rng Is Nothing Then Range(rng, Cells(Rows.Count, "H")).ClearContents
   
5. End Sub

复制代码

云朵中的民族

yangyangzhifeng 发表于 2013-1-1 13:11
试试看

新年新气象，祝愿您和您的家人健康！幸福！元旦快乐！