四时宝库

我们用Excel处理数据经常要对多个样本进行统计计算，算完一个再算第二个，以前用过的数据就要删除。

在Excel表中删除数据其实并不简单，表中可能会有很多看不见的数据和格式、定义的名称等等，很难删除干净。

为了避免删除数据不彻底，我们干脆把数据表删除，再重新创建数据表就可以了。这个方法简单方便。

假设有四个表是固定不变的表(表1-4)，五个表是数据表(表5-9)，我们在数据表上统计计算，完成后要做下一次相同任务时，就用这个程序清除数据表上的原有数据。

Sub 删除数据表再创建表()

Dim st01 As Worksheet

Dim str00, str01, str02, str03, str04, str05 As String

str01 = "表1"

str02 = "表2"

str03 = "表3"

str04 = "表4"

'只保留以上表，删除其他表

For Each st01 In Worksheets

If st01.Name <> str01 And st01.Name <> str02 And st01.Name <> str03 And st01.Name <> str04 Then

st01.Delete

End If

Next

'创建表

Dim i, k As Integer

'定义数组

Dim array01

'用数组装数据表名称

array01 = Array("表5", "表6", "表7", "表8", "表9") '可以任意加减表

'工作表数量

k = ThisWorkbook.Worksheets.Count

'创建空表，空表个数等于数组元素个数

Worksheets.Add After:=Worksheets(Worksheets.Count), Count:=UBound(array01) + 1

For i = k + 1 To Worksheets.Count Step 1

'赋值表名

Sheets(i).Name = array01(i - k - 1)

Next

End Sub