vba批量复制工作表1并重命名

1.打开工作簿

2.生成代码并运行

Sub 批量复制工作表1并重命名()
Dim i
For i = 2 To 10
      Sheets(1).Copy after:=Sheets(Sheets.Count)   '复制工作表1并将复制表放在工作表1后
      Sheets(Sheets.Count).Name = "新表" & i       '修改新表名称
Next

End Sub

vba批量复制工作表1并重命名_第1张图片

 

你可能感兴趣的:(经验分享,其他)