Excel VBA 编程 新建和删除工作表
当用户制作的报表中工作表的数量超过 3 个,可以为工作簿新建工作表。 另外,对于工作簿
中不需要的工作表,可以将其删除,以方便用户查看其他工作表中的数据。
1.新建工作表
无论工作簿中工作表的数量有多少个, 为了在这些工作表的最后添加一个工作表, 可以使用
Add方法来实现,其代码如下:
Sub 新建工作表 ()
Sheets.Add After:=Sheets(Sheets.Count)
End Sub
在上面的代码中使用 Sheets.Count 属性进行返回一个 Long 值,它代表集合中对象的数量。
语法: 表达式 .Count
另外,为了在选择的工作表之前插入一个工作表, 可以输入以下代码。 然后,在运行程序之
前,首先选择指定的工作表,当运行之后,即可在该工作表之前添加一个工作表。
Sub 新建 ()
Sheets.Add