vba并在最后一列返回sheet表名称_VBA学习第三节新建更新并删除sheet表

在VBA第三节课中，要求按照5月份的天数复制并新建31份日报表，并且更改sheet表名称与日报表中报表日期一致。比如新建的第一张日报表为5月1日，那么日报表中的报表日期应该为2020年5月1日。新建31份日报表后点击“删除新建的sheet”宏按钮进行删除。新建更新并删除sheet表的图片如下。

视频内容的思路为通过VBA复制并新建sheet表后更改sheet表名称和日报表中的报表日期，然后把新建的sheet表全部删掉。VBA操作视频如下。

1、新建并更改sheet表名称以及日报表日期的程序如下。

注1：如同上篇文章中介绍的一样，Sheet1.Copyafter:=Sheets(Sheets.Count)的意思是在现有sheet表后面复制一张sheet表。比如，目前EXCEL中只有一张sheet表，那么(Sheets.Count)的值就为1，进而Sheets(Sheets.Count) 的意思就是Sheets(1)，再结合前面的Sheet1.Copy after:=，就意味着在sheet(1)表后复制并新建一张sheet表出来。随着sheet表数量的增多࿰