[已解决]求大佬帮忙给看看代码哪里有问题？正确代码是什么？

朝夕寻心

我想实现在B列找出编号带“CP”(也就是成品缩写)的单元格，然后删除所在行，在标粗区域报警“无效的过程调用或参数”，请问正确的代码应该是什么？

Sub 查找并删除行()

Dim r
x = Cells(Rows.Count, 2).End(3).Row
    For r = 1 To x - 1
        If Cells(r, 2) Like "*CP*" Then

            Rows("r,r").Delete Shift:=xlShiftUp
        End If
    Next

End Sub

最佳答案

月排行榜 / 总排行榜

哥儿-

2022-9-7 19:48

除了楼上所说的问题，还有一处问题
Rows("r,r").Delete Shift:=xlShiftUp
改成 Rows(r).Delete Shift:=xlShiftUp
变量加上双引号不成了文本了

跳转到最佳答案楼层

风林火山

For r = 1 To x - 1 改成
For r =  x - 1 To 1 step -1

朝夕寻心

风林火山 发表于 2022-9-7 18:56
For r = 1 To x - 1 改成
For r =  x - 1 To 1 step -1

试过了，还是报警，跟之前一样

哥儿-

除了楼上所说的问题，还有一处问题
Rows("r,r").Delete Shift:=xlShiftUp
改成 Rows(r).Delete Shift:=xlShiftUp
变量加上双引号不成了文本了

朝夕寻心

哥儿- 发表于 2022-9-7 19:48
除了楼上所说的问题，还有一处问题
Rows("r,r").Delete Shift:=xlShiftUp
改成 Rows(r).Delete Shift:=xl ...

谢谢大佬，已经通了，楼上说的那种方式不用改也能执行的，亲测

哥儿-

朝夕寻心 发表于 2022-9-7 20:12
谢谢大佬，已经通了，楼上说的那种方式不用改也能执行的，亲测

那你的数据可能没有连续的CP
上一行：CP
下一行：CP
这种情况下单元格上移了，会出现漏删的情况。

朝夕寻心

哥儿- 发表于 2022-9-7 20:17
那你的数据可能没有连续的CP
上一行：CP
下一行：CP

明白了，谢谢我是个纯小白

朝夕寻心

风林火山 发表于 2022-9-7 18:56
For r = 1 To x - 1 改成
For r =  x - 1 To 1 step -1

谢谢大佬，学到了，一开始执行不通，原来是犯了低级错误，变量不能加引号