在工作中，我们有时需要保留格式和部分内容的空白表格，而清除掉不需要的内容，如果只用工具栏中的“筛选”功能，不一定能达到预期效果，这是我们可以通过编写VBA代码，来实现“一键式清除”！工具/原料more电脑壹台OFFICE办公软件方法/步骤1/9分步阅读

如图所示，表中有大量的数据，要求保留公式、标题栏、“本日合计”、“本月合计”和“本年累计”单元格，其它单元格的数据皆清空。如果一一清除的话，费时费力！

2/9

如图所示，用鼠标点一下“清除内容”按钮，一分钟之内便可以得到你想要的表格！下面分步骤与大家分享一下！

3/9

在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!

4/9

进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！

5/9

会弹出模块编辑窗口！

6/9

在代码编辑窗口输入以下代码：

Sub 清除内容()

Dim i As Integer

i = Cells(Rows.Count, d).End(xlUp).Row

For Each Rn In Range(d4:d i)

If Rn 本日合计 And Rn 本月合计 And Rn 本年累计 Then

Rn.Offset(0, -3).Resize(1, 6).ClearContents

Rn.Offset(0, 4).ClearContents

End If

Next

Range(a3:c3).ClearContents: Cells(3, i).ClearContents

End Sub

7/9

在“开发工具”菜单下，点击“插入”按钮！

8/9

在其下拉菜单中，点击插入“表单控件”，并命名为“清除内容”！

9/9

点击运行“清除内容”控件，便可以快速清除表格中不需要的内容！