我在第1页有一本工作簿我有一个摘要表(名单),我已经将其制定到其他页面以填充单元格。所以他们都有一个样本模板,即1页。我正在尝试自动化,如查看列表,如果它需要多个页面来填充。自动生成页面并使用公式复制模板。
代码:
Sub CreateAndNameWorksheets()
Dim c As Range
Application.ScreenUpdating = False
ForEach c In Sheets("Summary").Range("C5:lRow")
Sheets("Template").Copy After:=Sheets(Sheets.Count)
With c
ActiveSheet.Name = .Value
.Parent.Hyperlinks.Add Anchor:=c, Address:="", SubAddress:= _
"'" & .Text & "'!A1", TextToDisplay:=.Text
EndWith
Next c
Application.ScreenUpdating = True
EndSub
这段代码我用作提示但是它创建标签而不是页面。
只是为了具体我试图在Sheet中自动页面即TAB。 我知道每个页面可以容纳12个项目,因此如果摘要表中的25个项目,它将需要3个页面并创建3个页面从样本页面复制模板(第1页)。