[已解决]请老师们帮帮我把注释部分用代码写出来下，谢谢大家了！

上清宫主

Sub 选择()
Dim Regional As Range
On Error GoTo a
Set Regional = Application.InputBox(prompt:="请选择区域", Title:="提示", Default:="请选择", Type:=8).EntireRow
Regional.ClearContents
a:
Err.Clear
End Sub

yjwdjfqb

谢谢大家的帮助，知道用容错语句来解决，

现在想的是，不用容错语句，看有没有其它的办法来解决，用容错语句感觉好像是哪儿的逻辑不对一样。
目前没有办法，也只有用容错语句解决了！
谢谢大家了！

上清宫主

个人目前所知，这种不用容错语句实现不了：输入是一个区域，只能用set 给变量（如果不用set，得到的则是该区域的值形成的数组），而点取消时，他返回的是个逻辑值“假”，当将逻辑值用set给变量时就错了。这种情形下，觉得用容错语句正好发挥了其功效