添加工作表时指定[类型]

时间:2018-05-07 18:12:15

标签: excel vba excel-vba

我需要一个Excel工作表,每行都有数据来运行一个宏,该宏为每一行创建一个工作表,并使用我保存在计算机上的自定义模板创建每个工作表。

到目前为止,我有一个宏工作打开工作表中的每一行,但我不知道如何使用自定义模板打开工作表。另外,我想重命名每张纸中与特定单元格相对应的每张纸。

我用来从每一行创建新工作表的当前代码是:

Sub RowToSheet()
    Dim xRow As Long
    Dim I As Long
    With ActiveSheet
        xRow = .Range("A" & Rows.Count).End(xlUp).Row
        For I = 1 To xRow
            Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
            .Rows(I).Copy Sheets("Row " & I).Range("A1")
        Next I
    End With
End Sub

0 个答案:

没有答案