Sub check()Dim ck As Stringck = MsgBox("是否确认删除？", vbOKCancel, "操作确认")If ck = vbOK ThenEnd IfEnd SubIF THEN后面的空白部分填入你的语句。
