自动添加工作表,并且赋值

需求

创建单张工作表，并且在工作表中赋值
创建多张工作表，并且在工作表中赋值

方法

Worksheets.Add：在所属工作簿中新建一张工作表

Option Explicit
Sub 添加一张新的工作表()
    Dim XB As Worksheet '工作表
        '1步：添加了一张新的工作表，2步：并且赋值给XB代表新增的工作表，XB指向新的工作表
    Set XB = Worksheets.Add
        '给新增的工作表，第30行第2列赋值
    XB.Cells(30, 2