从工作表中删除空行和指定字符行

欢欢

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

不错哈！！！！