从列表中创build新的工作表和重命名,也可以将列表中的值插入到新的工作表中

希望对我正在做的事情有所帮助。 1.我想创build一个vba代码来创build新的工作表,对照“模板工作表”,并根据包含序列号列表的单独“列表工作表”对其进行重命名。 我设法find一个这样做的VBA代码。 2.我想自动将每个序列号从相同的“列表工作表”复制到每个新创build的工作表的D5列。 例如,第一个创build的工作表被重命名为“12345”,并且工作表应该在列“D5”中复制12345。

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

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 

您只需要在新的工作表的单元格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