宏怎么清除表格数据

宏的运行或删除首先要在“宏的安全级别为低”的状态下才能进行，而Excel 默认“宏的安全级别为高”，所以打开带有宏的工作簿，会有如下提示：

1、点“确定”打开工作簿，依次点击菜单“工具-->宏-->安全性”，打开“安全性”对话框。

2、在对话框中，将安全级别选为“低”，“确定”退出。

3、关闭Excel，再运行Excel并打开工作簿，将不会看第一张图中的提示。

4、依次点击菜单“工具-->宏-->宏”，打开“宏”对话框。

5、在“宏”对话框中，列出了宏名，选中后，点击“删除”按钮即可。

6、为了安全，可以按上面的方法将“宏的安全级别”重新设为高。

7、如果再打开已经删除宏的工作薄，还是出现第一张图的提示，可以依次点击菜单“工具-->宏-->Visual Basic 编辑器”。

8、在编辑器窗口左边的工程列表框中找到“模块”文件夹，双击展开。

9、右键其中的“模块1”，并点选“移除模块1”。（如果还有其它模块，也要这样移除）

10、点击“否”按钮，模块文件夹就被删除了，关闭编辑器回到工作簿状态。

11、保存工作簿。

注：在Visual Basic 编辑器中,如果还有其它模块，也都要移除。

首先我们打开一个工作样表作为例子。

excel中使用vba清除工作表内容

使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Option Explicit

Sub ddt()

'ActiveCell.CurrentRegion.Select

'Range(ActiveCell.End(xlUp), ActiveCell.End(xlDown)).Select

Range("A1").ClearContents '清除活动工作表上单元格A1中的内容

Selection.ClearContents '清除选定区域内容

Range("A1:D4").Clear

End Sub

excel中使用vba清除工作表内容

前两句代码是选择有数据内容的单元格，我做了注释标签，在代码中不运行。这里我先做一个简单的实例。使用range函数并选择了a1单元格，然后使用clearcontents命令来清除掉a1单元格中的内容。

excel中使用vba清除工作表内容

第二行代码是指选取单元格区域后运行宏，则清除掉所选区域的内容。

excel中使用vba清除工作表内容

最后一行代码更明晰，首先设定单元格区域为a1：d4，然后使用clear命令清除单元格包括格式在内的所有数据，这也是clear和clearcontents的区别。

excel中使用vba清除工作表内容

实际 *** 作一下，我现在把单元格中的字体修改为华文琥珀，并将字号设置为72，这时候单元格格式发生了变化，我使用clearcontents对单元格进行清除内容并不会更改单元格的格式。

excel中使用vba清除工作表内容

而使用clear命令清除内容，单元格格式会恢复成默认值。

excel中使用vba清除工作表内容

使用range对象可以达到你的目的

具体你可以查找相关资料或者到我的主页下载一个Demo看看就知道了

看看我的程序示例，有什么不明白再问我

Public Sub aaa()

With ThisWorkbook.Sheets("Sheet1") '指定工作表"sheet1"

.Range("A1:AZ300").ClearContents '清除A1～AZ300的数据

.Range("A1:A2").Merge 'A1单元格跟A2合并

.Cells(1, 1).Value = "人民" '在A1中输入数据

End With

End Sub

---