先完善一张表(
表头),按组合键ALT+F11弹出VBA编辑窗,双击左侧的ThisWorkBook,将以下代码复制到右侧的编辑区,单击上部工具栏的“向右三角符号”按钮执行它(或通过宏来执行它),完成任务
'以下为需要复制的代码
Sub AddSheets()
'
'本示例代码将在本工作簿中 按当月天数复制当月工作表,并按日期对表名赋值
'操作前请先将需要复制表的内容(如表头等)填写完整
Dim i As Integer
Dim DaysInt As Integer
Dim NameStr As String
'当月有多少天
DaysInt = DateAdd("m", 1, Now) - Now
'准备表名
NameStr = Month(Now) & "-"
'禁止提示
Application.DisplayAlerts = False
'删除其它工作表
For i = Sheets.Count To 1 Step -1
If Sheets(i).Name <> ActiveSheet.Name Then
Sheets(i).Delete
End If
Next
'第一张表名赋值
ActiveSheet.Name = NameStr & "1"
'复制工作表并按日期赋值表名
For i = 2 To DaysInt
Sheets(1).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = NameStr & CStr(i)
Next
'恢复提示
Application.DisplayAlerts = True
End Sub
本回答被网友采纳