[已解决]求高手帮忙修改，谢谢了！

lzrlzr

Sub xiugai()
    Dim a, b, c, tq, i, msg As Integer
    If Range("j3") = "" Then MsgBox "你未输入单据号!": Exit Sub
    a = Sheet6.[e65536].End(xlUp).Row
    b = Application.WorksheetFunction.Match(Range("j3"), Sheet6.Columns(4), 0)
    If Range("j3").Value = Sheet6.Range("d" & b).Value Then
        msg = MsgBox("是否修改单据" & Range("j3").Value & "的信息?", vbYesNo)
        If msg = vbNo Then Exit Sub
        c = Application.WorksheetFunction.CountIf(Sheet6.Range("d2:d" & a), Range("j3").Text)
        Sheet6.Rows(b & ":" & b + c - 1).Delete '如何在此处修改代码（或加入代码），实现：只 自动删除符合条件的行的A：T列的单元格的数据，但不会删除  该 符合条件的 行的U列以后的数据。
    End If

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-12 19:52

Sheet6.range("a" & b & ":t" & b + c - 1).clearcontents

跳转到最佳答案楼层

hwc2ycy

Sheet6.range("a" & b & ":t" & b + c - 1).clearcontents

lzrlzr

hwc2ycy 发表于 2013-5-12 19:52
Sheet6.range("a" & b & ":t" & b + c - 1).clearcontents

谢谢了，真的不错