[已解决]如何用VBA删除指定列中指定内容所在的行

yxw2111

删除D列为空的行,L列为0的行,U列为0的行.

最佳答案

月排行榜 / 总排行榜

Zipall

2011-12-29 09:45

Sub test()
    Set t = Rows(65536)
    For r = 1 To ActiveSheet.UsedRange.Rows.Count
        If Cells(r, 4) = "" Or Cells(r, 12).Text = 0 Or Cells(r, 21).Text = 0 Then Set t = Application.Union(t, Rows(r))
    Next
    t.Delete
End Sub

ps:空单元格的value=0,所以要用text来判断

跳转到最佳答案楼层

那么的帅

代码执行前，切记保存文件，或者另存文本备份。因为VBA删除操作是不可逆的。

1. 
   
2. Sub Macro1()'
   
3.     row1 = Range("a65536").End(xlUp).Row
   
4.     For I = row1 To 1 Step -1
   
5.         If Range("D" & I) = "" And Range("L" & I) = 0 And Range("U" & I) = 0  Then
   
6.             Range("D" & I).EntireRow.Delete
   
7.         End If
   
8.     Next I
   
9. End Sub
   
10. 
    

复制代码

因为没有看到源数据，可能上面的代码会删除有用的数据，建议增加一个条件A列不为空

1. 
   
2. Sub Macro2()
   
3.     row1 = Range("a65536").End(xlUp).Row
   
4.     For I = row1 To 1 Step -1
   
5.         If Range("D" & I) = "" And Range("L" & I) = 0 And Range("U" & I) = 0 And Range("A" & I) <> "" Then
   
6.             Range("D" & I).EntireRow.Delete
   
7.         End If
   
8.     Next I
   
9. End Sub
   
10. 
    

复制代码

Zipall

Sub test()
    Set t = Rows(65536)
    For r = 1 To ActiveSheet.UsedRange.Rows.Count
        If Cells(r, 4) = "" Or Cells(r, 12).Text = 0 Or Cells(r, 21).Text = 0 Then Set t = Application.Union(t, Rows(r))
    Next
    t.Delete
End Sub

ps:空单元格的value=0,所以要用text来判断