[已解决]当值等于零时删除该行

huweifvba

如A列是编码,B列是名称,C列是数量,      当C列数量是0的时候,整行自动删除   请高手帮忙

最佳答案

月排行榜 / 总排行榜

skyline_zwl

2011-9-14 10:49

回复 huweifvba 的帖子

试试

Sub Macro1()
    Dim arr, rng As Range, i As Long
    arr = Range("C1:C" & Range("C65536").End(xlUp).Row)
    For i = 2 To UBound(arr)
        If arr(i, 1) = 0 Then
            If rng Is Nothing Then Set rng = Rows(i) Else Set rng = Union(rng, Rows(i))
        End If
    Next
    If Not rng Is Nothing Then rng.Delete
End Sub

跳转到最佳答案楼层

xcnclzy

手工可以删除行，自动删除要用VBA吧。{:341:}

liuguansky

给个附件。

huweifvba

我发的是VBA版块呀

skyline_zwl

回复 huweifvba 的帖子

试试

Sub Macro1()
    Dim arr, rng As Range, i As Long
    arr = Range("C1:C" & Range("C65536").End(xlUp).Row)
    For i = 2 To UBound(arr)
        If arr(i, 1) = 0 Then
            If rng Is Nothing Then Set rng = Rows(i) Else Set rng = Union(rng, Rows(i))
        End If
    Next
    If Not rng Is Nothing Then rng.Delete
End Sub

skyline_zwl

回复 huweifvba 的帖子

看附件，测试一下。看是不是你想要的结果。

huweifvba

回复 skyline_zwl 的帖子

测试过了，可以的，谢谢！

skyline_zwl

回复 huweifvba 的帖子

对不起，附件没有传上去。

skyline_zwl

回复 skyline_zwl 的帖子

感谢设置为最佳答案，处子作啊，谢谢

huweifvba

回复 skyline_zwl 的帖子

是我要感谢你才对，你都把第一次给了我。