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的模板工作表。
我创建了一个模板工作表的副本，并在隔离部分的每一行之后命名它（如此循环）。
然后将单元格数据行B24放在工作表的单元格A13中。
但是，将隔离部分中的单元格数据行D24复制到新工作表单元格E13中的每张表上呢？

图片：

对不起，我的英语不好。

Answer 1

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

这是有关如何创建/删除一个的Microsoft网站： http : //office.microsoft.com/zh-cn/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