求助，合并单元格提取日期并新建工作表的问题

329395263

求助。提取和新建工作表命名的问题
http://club.excelhome.net/thread-1131369-1-1.html
新增一个按钮
希望能保持样表的格式和内容保存新建并清空样表内容
有木有人帮下忙啊

cortplayer

1. 是这个意思吗 初学者 代码求简化

复制代码

1. Sub 宏2()
   
2. Dim a As String
   
3. a = Worksheets("模版").Cells(1, 1)
   
4. Worksheets.Add after:=Sheets(Sheets.Count)
   
5. ActiveSheet.Name = a
   
6. Worksheets("模版").Activate
   
7. Cells.Copy
   
8. Worksheets(a).Paste
   
9. Cells(1, 1) = "年    月    日 约货单"
   
10. Range("A3:E11").ClearContents
    
11. 
    
12. End Sub
    

复制代码

浮生之年

楼上的回答得很好，我也这样子弄的