将一个工作表的内容复制到多个新创建的工作表中
将一个工作表的内容复制到多个新创建的工作表中
提问于 2013-12-27 09:13:31
我正在处理以下文件：
- 首先，从给定的列表中创建了一些带有列表(帐户)名称的工作表。
- 第二，从目标“主”页中，所有内容都应复制到每个新工作表中。
虽然我成功地创建了一个新的表格列表(感谢这个网站)，但我仍然坚持每一张纸的内容。不知道如何填写每一张内容相同的新单子，该内容位于纸张“母版”中。工作表“主”有一定的格式、公式和按钮，因此我需要确保每个新工作表都有非常相同的布局和内容。有什么建议，如何将它纳入下面的宏观？
Sub CreateSheetsFromAList()
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
Dim MyCell As Range, MyRange As Range
Set MyRange = Sheets("Cost Center").Range("A2")
Set MyRange = Range(MyRange, MyRange.End(xlDown))
For Each MyCell In MyRange
Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet
Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet
Next MyCell
Sheets("Instruction").Select
Range("A1").Select
ErrorHandler:
Sheets("Instruction").Select
Range("A1").Select
Exit Sub
Application.ScreenUpdating = True
End Sub回答 2
Stack Overflow用户
回答已采纳
发布于 2013-12-27 10:07:21
你的代码很接近！若要复制“主”页的内容，请替换
Sheets.Add After:=Sheets(Sheets.Count)
使用
Sheets("Master").Copy After:=Sheets(Sheets.Count)
相信这会有帮助。
Stack Overflow用户
发布于 2013-12-27 10:05:08
如果对我的评论的回答是肯定的，那么您可以尝试如下：
Dim ws, new_ws as WorkSheet 'declare the worksheet
Set ws = Thisworkbook.Sheets("MasterSheet") 'set as mastersheet
For Each MyCell In MyRange
Set new_ws = ws.copy Before:=Thisworkbook.Sheets(1) 'creates a new worksheet
new_ws.Name = MyCell.Value 'rename it based on list
Next MyCell希望这能有所帮助。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/20797895
复制相关文章
相似问题
腾讯云开发者
