用VBA吧,把第一个工作表处理好,删除其他工作表,把第一工作表命名为sheet1,然后复制以下代码,执行即可。
Sub test()
For i = 2 To 200
Sheets("sheet1").Copy after:=Sheets(i - 1)
ActiveSheet.Name = "Sheet" & i
Next
End Sub
产生的新工作表自动编号至sheet200
要下线了,再补充图片,供参考。我用的是ecxel2007版本。
希望能帮到你,有用请采纳,谢谢。
在工作表左下角的工作表标签上,单击鼠标右键,选择“选定全部工作表”,然后在任一工作表的需要位置进行条件格式的设置,会同步到所有的工作表。
写成设置后,在工作表标签上,单击鼠标右键,选择“取消组合工作表”,退出所有工作表的组合状态,避免对任一工作表的修改作用到所有工作表上。