Excel中Application.InputBox取消时If语句结果不匹配问题排查

错误根源 #

• 当用户点击Application.InputBox的「取消」按钮时，返回值是布尔型False，但你直接将其赋值给多单元格区域的.Value——多单元格区域的.Value是数组类型，直接赋值布尔值会触发类型不匹配。
• 后续判断时，你拿多单元格区域的.Value（数组）和布尔值False比较，同样会因类型兼容问题抛出错误。

修正代码 #

先将输入框的返回值存入变量，提前判断是否取消，再执行后续赋值或回滚操作：

Dim inputVal As Variant
Dim pasteRange As Range

For i = 1 To CopyAmt
    ' 明确粘贴目标区域，避免依赖ActiveCell的不稳定行为
    Set pasteRange = ActiveCell.Offset(RowCnt * (i - 1), 0)
    userInputRange.Copy
    pasteRange.PasteSpecial xlPasteAll ' 明确粘贴类型，避免默认行为歧义
    
    ' 先获取输入值并判断是否取消
    inputVal = Application.InputBox(Prompt:="Internal Value", Type:=2)
    If inputVal = False Then
        ' 精准删除刚粘贴的整行区域
        pasteRange.Resize(RowCnt, 1).EntireRow.Delete
        Exit Sub
    End If
    
    ' 将输入值赋值到目标列（偏移24列）
    pasteRange.Offset(, 24).Resize(RowCnt, 1).Value = inputVal
Next i

优化方向 #

• 摒弃ActiveCell/Activate/Selection：这类依赖活动对象的代码易受用户操作、工作表切换影响，改用明确的对象变量（如pasteRange）定位区域，代码稳定性大幅提升。
• 明确粘贴参数：PasteSpecial指定具体参数（如xlPasteAll），避免默认粘贴行为带来的意外格式或数据丢失。
• 精准回滚定位：直接通过pasteRange.Resize(RowCnt, 1).EntireRow.Delete定位刚粘贴的行，比依赖Selection更可靠，不会因选中区域变化出错。
• 变量类型声明：对所有变量（如inputVal）声明类型，提升代码可读性和运行效率。

内容的提问来源于stack exchange，提问作者Sean S.