可以用vba
按住ALT,依次按F11,I,M
粘贴下面的代码后按F5
可将当前工作表复制31份并依次命名为1,2,3...31
Sub 批量生成明细表()
n = ActiveSheet.Name
For i = 1 To 31
Sheets(n).Copy , Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = i
Next
Sheets(n).Select
End Sub
PS:实际上还是复制粘贴了N次,只是用vba将过程简化了而已。
温馨提示:内容为网友见解,仅供参考