请教各位老大们: 我想清除Sheet2中第二行以下的全部内容,并有MSGBOX提示是否确定删除,点确定删除,否则返回。那位高手给我 个代码阿,感激不尽! 解决方案1: Sub 清除数值() Sheets("Sheet2").Range("3:65536").ClearContents End Sub 回复 2楼 LangQueS 的帖子 老大,能不能帮我写个删除确认的阿?确认后再删除,谢谢了哈! 解决方案2 这段代码就行 Public Sub del_row2() Dim rng As Range, i As Integer Set rng = Sheet2.Rows("2:65536") i = MsgBox(prompt:="是否删除第二行以下的内容", Buttons:=vbYesNoCancel) If i = 6 Then rng.Cells.Clear End If End Sub |
|