修改代码

ddz79101

老师！有表，已写有代码，系保留关键字行，但未成功，反而清零了。请老师看看帮忙修改。谢谢

3190496160

Sub text()
Dim MaxRow&, iRow&
Application.ScreenUpdating = False
Sheets("K2").Select
MaxRow = [f1].CurrentRegion.Rows.Count
For iRow = MaxRow To 2 Step -1
    If InStr(Cells(iRow, "f"), "业务活动成本") = 0 And InStr(Cells(iRow, "f"), "管理费用") = 0 And InStr(Cells(iRow, "f"), "其他费用") = 0 Then
        Rows(iRow).Delete
    End If
Next
Cells.Columns.AutoFit
Application.ScreenUpdating = True
End Sub

3190496160

修改代码.rar (9.74 KB, 下载次数: 7)

2024-3-30 10:33 上传

点击文件名下载附件

shiruiqiang

思路错误，如f列包含了"管理费用"，但是循环语句instr(“其他费用”)=0成立，导致被删除。
换个思路，instr(字段)>0 就提取变成n=n+1就没错误了

ddz79101

3190496160 发表于 2024-3-30 10:33

谢谢老师！运行成功了！鲜花后献

ddz79101

shiruiqiang 发表于 2024-3-30 10:45
思路错误，如f列包含了"管理费用"，但是循环语句instr(“其他费用”)=0成立，导致被删除。
换个思路，inst ...

谢谢老师！帮我解释原代码出错原因！另我用你代码修改了我代码，但未出现我要的结果，老师可以帮我再看看原因吗？另外你代码中没有了DELETE,想不通！

ddz79101

ddz79101 发表于 2024-3-30 11:21
谢谢老师！帮我解释原代码出错原因！另我用你代码修改了我代码，但未出现我要的结果，老师可以帮我再看看 ...

上面代码中的DELETE,是我右边截图后再加上的

ddz79101

ddz79101 发表于 2024-3-30 11:25
上面代码中的DELETE,是我右边截图后再加上的

我不知道我哪里错了！老师的代码截图和结果应该是一致的。我代码错哪里了，可以帮忙看看吗，加DELETEEH和不加都是右边结果

ddz79101

shiruiqiang 发表于 2024-3-30 10:45
思路错误，如f列包含了"管理费用"，但是循环语句instr(“其他费用”)=0成立，导致被删除。
换个思路，inst ...

老师！抱歉！原因找到了，

gwjkkkkk

Sub text()
    Dim MaxRow&, iRow&, regex As Object
    Application.ScreenUpdating = False
    Sheets("K2").Select
    MaxRow = [f1].CurrentRegion.Rows.Count
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "业务活动成本|管理费用|其他费用"
    For iRow = MaxRow To 2 Step -1
        If regex.test(Cells(iRow, "F").Value) = False Then
            Rows(iRow).Delete
        End If
    Next
    Cells.Columns.AutoFit
    Application.ScreenUpdating = True
End Sub