时间戳

首页 > 解决方案 > 编译错误语法错误 Vba

vba - 编译错误语法错误 Vba

问题描述

我编写的脚本是为了运行一系列行，如果在其中找不到某些字符串，则删除每一行。我遇到的错误是当我运行脚本时出现错误

“编译错误语法错误”

并且该Instr行突出显示为有错误。

With ActiveSheet
    .Select
    ViewMode = ActiveWindow.View
    ActiveWindow.View = xlNormalView
    .DisplayPageBreaks = False
    Firstrow = .UsedRange.Cells(1).Row
    Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
    For Lrow = Lastrow To Firstrow Step -1

        If InStr(.Cells(Lrow,"I").Value,"Removal") = 0 and _
           InStr(.Cells(Lrow,"J").Value,"removal") = 0 and _
           InStr(.Cells(Lrow,"J").Value,"removed") = 0 Then.Rows(Lrow).Delete

    Next Lrow

End With

如果有人知道为什么会发生这种情况或有解决方案，将不胜感激，谢谢。

标签： vbaexcel

解决方案

假设您已经正确定义了 WITH 对象，看起来您只是缺少一个空格

Then.Rows(Lrow).Delete

它应该看起来像这样

Then .Rows(Lrow).Delete

推荐阅读