VBA编译错误（语法错误）：Instr行报错的问题咨询

嘿，我瞅你这段VBA代码在InStr那行触发了编译错误，大概率是语法用错了，再加上代码里还有拼写小失误（比如Lastr...应该是Lastrow），咱们来一步步修正：

常见错误点分析 #

• InStr参数顺序搞反：很多人会把「要搜索的单元格内容」和「要找的特定字符串」写反，这是最容易触发语法错误的原因。InStr的正确顺序是：InStr(起始位置, 目标字符串, 要查找的子字符串)（起始位置可选，默认从第1位开始）。
• 循环变量拼写错误：你代码里的Lastr...明显是Lastrow的拼写失误，这种小错误也会直接导致编译失败。
• 未强制变量声明：加上Option Explicit能帮你提前发现这类拼写错误，避免运行时踩坑。
• 删行要倒序遍历：如果从第一行往最后一行删，删掉一行后后面的行会往上挪，导致漏删，所以必须从最后一行倒着往前遍历。

修正后的完整代码 #

Option Explicit

Sub DeleteRowsWithoutSpecificString()
    Dim ws As Worksheet
    Dim Firstrow As Long, Lastrow As Long, Lrow As Long
    Dim ViewMode As XlWindowView
    Dim searchString As String
    
    ' 替换成你需要保留的特定字符串
    searchString = "你的目标字符串"
    
    Set ws = ActiveSheet
    
    ' 保存当前视图，避免页面布局干扰
    ViewMode = ActiveWindow.View
    ActiveWindow.View = xlNormalView
    ws.DisplayPageBreaks = False
    
    ' 获取有效数据的首尾行
    Firstrow = ws.UsedRange.Cells(1).Row
    Lastrow = ws.UsedRange.Rows(ws.UsedRange.Rows.Count).Row
    
    ' 倒序遍历行（关键！避免漏删）
    For Lrow = Lastrow To Firstrow Step -1
        ' 检查当前行第1列（可改成其他列，比如Columns("C")）是否不含目标字符串
        ' vbTextCompare=不区分大小写，要区分则换成vbBinaryCompare
        If InStr(1, ws.Cells(Lrow, 1).Value, searchString, vbTextCompare) = 0 Then
            ws.Rows(Lrow).Delete
        End If
    Next Lrow
    
    ' 恢复原来的视图
    ActiveWindow.View = ViewMode
End Sub

关键细节调整提示 #

• 把searchString = "你的目标字符串"里的内容替换成你实际需要保留的特定字符串。
• 如果要检查的不是第1列，把ws.Cells(Lrow, 1)里的1改成对应列号（比如3对应C列），或者写成ws.Cells(Lrow, "C")更直观。
• 运行前建议先备份工作表，避免误删重要数据！

内容的提问来源于stack exchange，提问作者user9730643