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

tanhong

要求：通过代码删除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

[:50] [:50] [:50]

pureshadow

代码......
江版你知道我要说什么了:[:28] 大炮打蚊子!!![:34]
自动筛选:空及ME,再删除整行就好了.

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

欢欢

Sub CleanUp()
    On Error Resume Next
      Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
一句就好，搞这么复杂干什么

tanhong

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

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

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

tanhong

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

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

pureshadow

没什么意见啦,代码妖也会,
With Columns("A:A")
    .Replace What:="me", Replacement:=""
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With

tanhong

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

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

欢欢

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

不错哈！！！！

gujin162

学习了~~~~~~~~~~~~~~~~