我需要一个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