满足条件就删除

xing_chen

fzxba 发表于 2023-5-2 09:08

老师！抱歉！想起来了，我看代码时是发现中间都有注释的蓝色代码，是有点纳闷，但没有进一步核实，就运行了。没有及时提醒。抱歉!抱歉!

z865593849

z865593849

z865593849 发表于 2023-5-2 14:56

思考了一下有点不完善，循环应该倒着写，for i = lastrow to 1 step -1

xing_chen

z865593849 发表于 2023-5-2 14:56

谢谢老师！运行结果比你的图片上的数据少，我核对了代码，没有发现问题呀:
Sub a()
    For i = 2 To 23
    If Range("p" & i) = "»ã¿î꧰ü" Then            'èç1û»ã¿î꧰ü
        For j = 2 To 23
            If Range("L" & j) = Range("L" & i) And _
                Range("N" & j) = -Range("N" & i) Then       'èç1ûDÕÃûoí½e¶îÏàμè
                Union(Range("K" & j & ":" & "p" & i), _
                Range("k" & j & ":" & "p" & j)).Delete         ' ¾íé¾3yÕa2DD
                Exit For
            End If
            Next
        End If
    Next
End Sub