1、添加一个ActiveX按钮控件2、在VBA中添加模块，然后在模块中写入VBA代码实例（清除D2、D3、D4单元格的值）：Sub Clear()Worksheets("Sheet1").Range("D2,D3,D4").ClearContentsEnd Sub3、右键单击按钮，选择‘指定宏’，然后选择需要使用的宏----Clear
range.clearcontents
