從工作表中刪除空行和指定字符行

tanhong

要求：通過代碼刪除A列區(qū)域中空行和指定字符行

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
       '刪除所在區(qū)域內(nèi)空白單元格所在行
       .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] 欺負我這不會用代碼的,等哪天我從師傅那里獲真?zhèn)骱蟪鰩熈?哼哼........[:34]

歡歡

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

tanhong

原帖由 pureshadow 于 2008-5-30 12:05 發(fā)表
代碼......
江版你知道我要說什么了:[:28] 大炮打蚊子!!![:34]
自動篩選:空及ME,再刪除整行就好了.

[:30] 欺負我這不會用代碼的,等哪天我從師傅那里獲真?zhèn)骱蟪鰩熈?哼哼........[:34]

哈哈!小妖看來意見特別大.我發(fā)這個帖子就是了為拋磚引玉,達到目的就好了.

tanhong

原帖由 歡歡 于 2008-5-30 14:08 發(fā)表
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 發(fā)表
沒什么意見啦,代碼妖也會,
With Columns("A:A")
    .Replace What:="me", Replacement:=""
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With

[:50] 哈哈!要得就是這個結(jié)果.

歡歡

原帖由 pureshadow 于 2008-5-30 16:03 發(fā)表
沒什么意見啦,代碼妖也會,
With Columns("A:A")
    .Replace What:="me", Replacement:=""
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With

不錯哈�。。�！

gujin162

學習了~~~~~~~~~~~~~~~~