虽然看不是很懂你的目的...
但我会建议你这样试试看
Dim temp_answer as variant
temp_answer= InputBox("K.-KE0201" & Chr(13) & "E.-KE0202")
Select case UCase(temp_answer)
Case "K"
Cells(Cells("I, 9").Value) = “KE0201”
Case "E"
Cells(Cells("I, 9").Value) = “KE0202”
Case else
Msgbox “Wrong Answer”
End select
※ 引述 《MidoBanA》 之铭言：
: 小弟沿用公司前辈的报表做修改
: 初期很正常
: 直到今日出现一个不解的问题
: Cells(I, 9).Value = InputBox("K.-KE0201" & Chr(13) & "E.-KE0202")
: If UCase(Cells("I, 9").Value) = "K" Then GoTo KE0201
: If UCase(Cells("I, 9").Value) = "E" Then GoTo KE0202
: KE0201:
: If Cells("I, 9").Value >= KE0201 Then
: End If
: KE0202:
: If Cells("I, 9").Value >= KE0202 Then
: End If
: 小弟想要在
: https://imgur.com/nQzRo9f.jpg
: 选择K后
: 在储存格跳出KE0201
: 不过一直出现 执行阶段错误1004
: 请教大大如何解套?
: 感谢

谢谢

抱歉 手机排版，发现多了cells()...

厉害！推