Excel VBA复制模板工作表

Question

我是VBA的新手，需要完成我的作业。

我想将模板工作表复制到其中并自动复制一些单元格 这就是我从网上得到的东西，我现在被卡住了......

Sub CopyTemplate()
    Dim myCell As Range, MyRange As Range, Orange As Range
    Set MyRange = Sheets("Isolation Section").Range("B24")
    Set MyRange = Range(MyRange, MyRange.End(xlDown))
    Set Orange = Sheets("Isolation Section").Range("D24")
    Set Orange = Range(MyRange, MyRange.End(xlDown))

    Application.ScreenUpdating = False
    For Each myCell In MyRange
        Sheets("Template").Copy After:=Sheets(Sheets.Count)
        With myCell
            ActiveSheet.Name = .Value
            ActiveSheet.Range("A13").Value = .Value
            ActiveSheet.Range("E13").Value = Orange.Value
            .Parent.Hyperlinks.Add Anchor:=myCell, Address:="", SubAddress:= _
               "'" & .Text & "'!B24", TextToDisplay:=.Text
        End With
    Next myCell
    Application.ScreenUpdating = True
End Sub

我有一个名为 Template 的模板表。
我创建了 Template 表的副本，并在隔离部分的每一行之后命名它（所以循环）。
然后将单元格数据行 B24 放在单元格中 表格 A13 。
但是如何将 Isolation Section 中的单元数据行 D24 复制到新工作表单元格中的每个工作表 E13 ？

图片：

对不起，如果我的英语不好......

Answer 1

您的描述不是很清楚，但解决问题的最简单方法是使用宏录制器并复制并粘贴代码。

这是微软关于如何创建/删除一个网站的网站：http://office.microsoft.com/en-us/excel-help/create-or-delete-a-macro-HP010342374.aspx

我有时会创建宏，只要你对编码有所了解，你就可以把几个宏录音粘在一起，并且有一个工作的宏......它实际上是标准化的。祝你好运。

Answer 2

试试这个：

For Each mycell In MyRange
    Sheets("Template").Copy After:=Sheets(Sheets.Count)
    With ActiveSheet
        .Name = mycell
        .Range("A1").Value = mycell.value
        .Range("E1").Value = mycell.Offset(0, 1).Value
    End With
    mycell.Parent.Hyperlinks.Add Anchor:=myCell, Address:="", SubAddress:= _
        "'" & mycell.Text & "'!B24", TextToDisplay:=mycell.Text
Next