Excel 2010 VBA 入门 061 按模板快速生成指定数量的工作表

目录

示例

实现代码

工作表对象(Worksheet)及其表示方法

1．序号表示法

2．工作表名称表示法

3．对象名称表示法

工作表集合和工作表

工作表常用的基本属性

工作表的添加与复制

工作表对象(Worksheet)与单元格对象(Range)的关系

工作表的删除

 Application. DisplayAlerts属性

---

示例

    如图所示，该表为某公司在银行的余额汇总。现希望按照模板的格式生成若干张工作表，各工作表以银行名称作为表格名称，并将该银行信息填入表内。如何用VBA批量完成？

实现代码

Option Explicit

Sub 按模板生成工作表()
    Dim RowN As Long
    Dim shtOld As Worksheet
    Dim shtNew As Worksheet
    Dim shtTemplate As Worksheet
    
    '设定模板
    Set shtTemplate = Sheets("Sheet2")
    '设定数据工作表
    Set shtOld = Sheets("Sheet1")
    '遍历所有的记录
    For RowN = 2 To