Sub TEXT() '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim i As Integer i = MsgBox("是否要清除数据", 1, "数据清除") If i = 2 Then Exit Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''' ''''下面是你录制的东西