VBA循环调用InputBox获取选中单元格值第二次报类型不匹配如何解决？

报错原因 #

• 核心问题是你没有为Application.InputBox指定Type参数，也没有处理不同返回类型的适配逻辑：
  • Application.InputBox默认Type=0，会根据用户操作返回不定类型的结果：用户选单元格时返回Range对象，点取消时返回布尔值False，手动输入内容时返回字符串
  • 若用户选中多个单元格，Range对象的默认Value属性会返回数组，无法直接转换为字符串
  • 第一次运行时可能恰好是用户选中单个单元格，隐式转换成功没有触发错误，但第二次运行时触发了数组/布尔值/对象的返回场景，直接赋值给声明为String类型的sCell就会抛出类型不匹配错误
• 未兼容用户取消操作的返回值，也是触发报错的常见场景

修复方案 #

明确指定InputBox的返回类型为单元格对象，再手动提取单元格的文本值，同时兼容取消和多选场景即可：

Dim vendor As String, sCell As String
Dim selectRng As Range ' 新增对象变量接收选中的单元格

vendor = "New Test Vendor 8675309"

pInput = vendor & " does not appear in Vendor Database." & vbNewLine & vbNewLine & "Does " & vendor & " already exist?" & vbNewLine & vbNewLine & _
     "If yes, please select the Vendor Number  that " & vendor & " belongs to." & vbNewLine & vbNewLine & _
     "Otherwise, please select a cell that says " & """" & "Does not Exist" & """" & "."

' 加错误捕获处理用户点取消的情况
On Error Resume Next
Set selectRng = Application.InputBox(prompt:=pInput, Type:=8) ' Type:=8指定返回单元格对象，限制用户只能选单元格
On Error GoTo 0

' 判断用户是否选中了有效单元格
If selectRng Is Nothing Then
    ' 可根据业务需求自定义取消后的逻辑，比如提示重试/退出循环
    MsgBox "未选中任何单元格，请重试"
    ' 如需回到选择步骤可自行添加跳转逻辑
Else
    ' 强制取选中区域第一个单元格的文本值，避免多选导致的数组转换错误
    sCell = selectRng.Cells(1).Text
End If

' 后续正常使用sCell即可

• 改动说明：
  • 新增Range类型变量接收选中的单元格，避免直接隐式转换的类型冲突
  • 指定Type:=8强制用户只能选择单元格，屏蔽无效手动输入
  • 加错误捕获兼容用户点击取消的操作，避免直接抛出运行时错误
  • 手动提取选中区域第一个单元格的Text属性赋值给sCell，确保返回值一定是字符串类型

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