首页 文章

Excel VBA复制模板工作表

提问于
浏览 次
0

我是VBA的新手，需要完成我的任务 .

我想将模板工作表复制到其中并自动复制一些单元格 .
这里's what I get from webs, and I'我现在被困了..

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 ？

Image:

Sample Image

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

excel vba excel-vba

2 回答

  • 0

    试试这个：

    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
    回复于
  • 0

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

    这里's microsoft'的网站上有关如何创建/删除一个：http://office.microsoft.com/en-us/excel-help/create-or-delete-a-macro-HP010342374.aspx

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

    回复于

相关问题