Question

vba中,输入框点取消（或空时点确定）后,弹出对话框,点否或取消反回到输入框,如此循环,直到输入框中有值

Sub 删除重复行两者情况都有()
Dim i As Integer, x As Integer, y As Integer, z As String
Do
z = InputBox("请选择所要删除重复行的列")
If z = "" Then
w = MsgBox("确定退出?", vbYesNoCancel + vbExclamation, "询问")
If w = vbYes Then
Exit Sub
Else
z = InputBox("请选择所要删除重复行的列")
Loop Until z <> ""
End If
Else
.......................

我的想法：弹出输入框，如果点取消或空时点确定，则，弹出确定对话框，在确定对话框中，如果点确定则退出，点否或取消时再返回到输入框，如此循环。
之前我没有用do，当再次返回到输入框时，如果点取消或空时点确定，则不弹出确定对话框。
后来我想到用do来做个循环，如上代码，但是提示loop没有do。
请问是哪里问题?

Answer 1

Sub 删除重复行两者情况都有()
Dim i As Integer, x As Integer, y As Integer, z As String
Do
z = InputBox("请选择所要删除重复行的列")
If z = "" Then
If MsgBox("确定退出?", vbYesNoCancel + vbExclamation, "询问") = vbYes Then Exit Sub
End If
Loop While z = ""
'执行删除操作
End Sub

Answer 2

修改过的。