VBA删除操作弹出MsgBox错误提示及代码报错解决

报错根因 #

原代码触发"Wrong number of arguments or invalid property assignment"报错，是以下几处语法、逻辑问题共同导致的：

• Range.Row(2).Select写法非法：Row是Range对象的只读属性，不是可传参的方法，且判断行属性不需要执行Select选中操作，会额外引发选中状态混乱
• 逻辑运算符误用：VBA中逻辑与判断要用And，&是字符串连接符，无法用于条件分支的逻辑运算
• 分支结构缺失：判断禁止删除行的If块没有写对应的End If闭合，语法结构不完整
• 对象引用不明：代码中Range.Row没有指定具体所属的Range对象，默认取全局活动表的随机对象，取值不可控
• 逻辑断层：判断到选中禁止删除的行后，只弹了错误提示没有加退出过程的逻辑，后续还是会执行删除代码
• 多余符号：第一行代码结尾的冒号属于语句分隔符误用，无实际作用还可能引发解析异常

修复后可直接运行的代码 #

Private Sub Deletar_Click()
    Dim answer As VbMsgBoxResult, tbl As ListObject, errTip As VbMsgBoxResult
    Dim selectedRow As Long
    ' 提前获取当前选中单元格所在行号
    selectedRow = Selection.Row
    
    ' 删除确认弹窗
    answer = MsgBox("确定要执行删除操作吗？", vbYesNo + vbQuestion, "删除行")
    If answer <> vbYes Then Exit Sub
    
    ' 受保护行校验，可自行修改判断规则适配不同的禁止删除区域
    ' 示例规则：禁止删除第2行
    If selectedRow = 2 Then
        errTip = MsgBox("禁止删除该行", vbCritical + vbOKOnly, "操作错误")
        Exit Sub
    End If
    
    ' 绑定目标表格执行删除
    Set tbl = MySheet.ListObjects("DataTable")
    ' 计算选中行在表格数据区的相对位置后删除对应行
    tbl.DataBodyRange.Rows(selectedRow - tbl.DataBodyRange.Row).Delete
End Sub

自定义调整说明 #

• 如果需要设置多行为受保护行，可修改校验分支的判断条件，比如禁止删除2、5、7行，条件改为If selectedRow = 2 Or selectedRow = 5 Or selectedRow = 7 Then即可
• 如果需要禁止删除某个固定Range覆盖的所有行，判断条件可改为If Not Intersect(Selection, MySheet.Range("你要保护的区域地址")) Is Nothing Then
• 如果需要保留原错误弹窗的重试、取消按钮，把MsgBox参数里的vbOKOnly替换为vbRetryCancel即可

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