Question

希望得到我正在努力的帮助。 1.我想创建一个vba代码，针对“模板工作表”创建新的工作表，并根据包含序列号列表的单独“列表工作表”重命名它们。我设法找到了这样做的vba代码。 2.我想自动将每个序列号从同一“列表工作表”复制到每个新创建的工作表的D5列。例如，第一个创建的工作表重命名为“12345”，工作表应将12345复制到“D5”列中。

这是执行第一个操作的vba。但我真的需要一个善良的灵魂来帮助建议第二个行动。

Sub NewSheets()
Dim i As Integer
Dim ws As Worksheet
Dim sh As Worksheet
Set ws = Sheets("Template")
Set sh = Sheets("List")
Application.ScreenUpdating = 0

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        Sheets("Template").Copy After:=sh
        ActiveSheet.Name = sh.Range("A" & i).Value
Next i
End Sub

Answer 1

您只需在新工作表的单元格D5中设置值：

Sub NewSheets()
Dim i As Integer
Dim ws As Worksheet
Dim sh As Worksheet
Set ws = Sheets("Template")
Set sh = Sheets("List")
Application.ScreenUpdating = 0

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        Sheets("Template").Copy After:=sh
        ActiveSheet.Name = sh.Range("A" & i).Value
        ActiveSheet.Range("D5").Value = sh.Range("A" & i).Value
Next i
End Sub

创建新工作表并从列表重命名，但也要将列表中的值插入新工作表

1 个答案: