关于用宏给excel工作表命名。

来源：百度知道 编辑：UC知道 时间：2024/06/04 12:42:40
我有一个工作簿，里面许多工作表是以月度命名的，譬如09-10，现在我每月需要创建新工作表，需要从上月的工作表里复制大量内容，所以我用宏来操作，我想问一下怎样实现自动命名？比如本月的名字是09-10，下月自动命名为09-11，然后到了12月，又命名为09-12，更重要的是11月是从10开始复制内容，而到了12月，宏要自动从11月的工作表复制内容。怎样修改代码？

给个框架，具体代码根据实际修改、增减。

Sub 增加新表()
'On Error Resume Next
Sheets.Add AFTER:=Sheets(ThisWorkbook.Worksheets.Count) '在所有工作表之后插入一个工作表
t = Format(Date, "yy-mm")
ActiveSheet.Name = t '将刚才插入的工作表重命名为09-10这样的格式
Sheets(t).[B1:B10].Value = Sheets(Format(Application.WorksheetFunction.EoMonth(Date, -1), "yy-mm")).[A1:A10].Value '将新表的B1:B10的值修改为上月表的A1:A10的值
End Sub