Office中国论坛/Access中国论坛

标题: 从工作表中删除空行和指定字符行 [打印本页]

作者: tanhong 时间: 2008-5-26 12:45
标题: 从工作表中删除空行和指定字符行
[attach]30294[/attach]

要求：通过代码删除A列区域中空行和指定字符行

Sub CleanUp()
On Error Resume Next
With ActiveSheet
      LastRw = .Cells(Rows.Count, "A").End(xlUp).Row
      Set Rng1 = .Range(Cells(1, "A"), Cells(LastRw, "A"))
      Set Rng2 = .Range(Cells(2, "A"), Cells(LastRw, "A"))
End With
With Rng1
   '删除所在区域内空白单元格所在行
   .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   '进行筛选,并删除指定字符所在行
   .AutoFilter Field:=1, Criteria1:="Hello"
   Rng2.SpecialCells(xlCellTypeVisible).EntireRow.Delete
   .AutoFilter
End With
End Sub

作者: chenwm1973 时间: 2008-5-26 16:10
[:50] [:50] [:50]

作者: pureshadow 时间: 2008-5-30 12:05
代码......
江版你知道我要说什么了:[:28] 大炮打蚊子!!![:34]
自动筛选:空及ME,再删除整行就好了.

[:30] 欺负我这不会用代码的,等哪天我从师傅那里获真传后出师了,哼哼........[:34]

作者: 欢欢 时间: 2008-5-30 14:08
Sub CleanUp()
On Error Resume Next
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
一句就好，搞这么复杂干什么

作者: tanhong 时间: 2008-5-30 14:23

原帖由 pureshadow 于 2008-5-30 12:05 发表
代码......
江版你知道我要说什么了:[:28] 大炮打蚊子!!![:34]
自动筛选:空及ME,再删除整行就好了.

[:30] 欺负我这不会用代码的,等哪天我从师傅那里获真传后出师了,哼哼........[:34]

哈哈!小妖看来意见特别大.我发这个帖子就是了为抛砖引玉,达到目的就好了.

作者: tanhong 时间: 2008-5-30 14:25

原帖由欢欢于 2008-5-30 14:08 发表
Sub CleanUp()
On Error Resume Next
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
一句就好，搞这么复杂干什么

学习!不过你这只是删除空白行,但这里面还有删除指定字符所在行哦.你再仔细看看

作者: pureshadow 时间: 2008-5-30 16:03
没什么意见啦,代码妖也会,

With Columns("A:A")
.Replace What:="me", Replacement:=""
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With

作者: tanhong 时间: 2008-5-30 18:59

原帖由 pureshadow 于 2008-5-30 16:03 发表
没什么意见啦,代码妖也会,
With Columns("A:A")
.Replace What:="me", Replacement:=""
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With

[:50] 哈哈!要得就是这个结果.

作者: 欢欢 时间: 2008-5-30 19:41

原帖由 pureshadow 于 2008-5-30 16:03 发表
没什么意见啦,代码妖也会,
With Columns("A:A")
.Replace What:="me", Replacement:=""
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With

不错哈！！！！

作者: gujin162 时间: 2011-10-16 19:55
学习了~~~~~~~~~~~~~~~~

作者: yutin 时间: 2012-4-17 16:42
都牛

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)