excel中自动插入工作表并将工作表命名为当天日期的vba怎...-excel多个命名,excel将工作表命名

这复制多个我到是知道，可是依次命名其它简单的我到是不知道。
复制表格，你只要拖动你那个标准格式的工作表，就可以复制的，之后比较多的时候，你就可以几个一起拖动，多数表格一起复制了。

Sub addas()

Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Year(Now()) & "-" & Month(Now()) & "-" & Day(Now())

End Sub
sub aa ()
dim i&,x&
dim rq as date
i=sheets.count '计算工作表zd数
rq=date '赋值当期日期内,这根据你的起始日期自己修改
for x=1 to i '建立每个表循环
with sheets(x)
.range("A1")=rq '给当前表A1单元格赋值日期
.printout '打印当前表
rq=rq+1 '日期加1天
end with
next x
end sub
'运行这个宏就完成你的目的了容.代码后面的文字是注解

1. 首先建一个工作表，里面填写需要创建的工zhidao作表的所有名字

2. 生成数据透视表。单击版数据区域任意单元格，【插入】【数据透视表】，在【创建数据透视表】对话框中选择放置数据透视表的位置：现有工作表C1单元格。

3. 在弹出的【数据透视表字段列表】对话框中，将“生成以下名称的工作表”字段拖动到报表筛选区域，关闭【数据透视表字段列表】

4. 生成报表筛选页。单击C1单元格，依次单击【选项】选项卡，【数据透视表】命令组，单击【选项】右侧的三角按钮，在下拉列权表中单击【显示报表筛选页】，弹出【显示报表筛选页】对话框。

5. 保留默认设置，单击确定。

6. 清除工作表内容。好多的工作表瞬间就生成了，但是新生成的工作表里都有一个数据透视表，需要把它清除掉。右键单击工作表标签，在下拉列表中选择【选定全部工作表】。

7. 单击工作表左上角的“全选按钮”，再依次单击【开始】选项卡，【编辑】命令组，【清除】按钮右侧的小三角，在下拉列表中选择【全部清除】。

   
   

8. 最后，右键单击工作表标签，【取消组合工作表】，完成。