excel - 具有新名称的重复工作表

Question

非常感谢您帮助解决这个小问题。

我想使用我想要的名称多次复制一个 Excel 工作表。我可以通过让它问我名称应该是什么来做到这一点 - 但是有没有办法通过在这 20 个左右的选项卡名称中进行编码来做到这一点。

这是我到目前为止所拥有的 -

Dim name As String 
Dim x As Integer 
x = ActiveWorkbook.Worksheets.Count 

name = Application.InputBox("Put down the name", "Add worksheet") 
If name = "" Then Exit Sub 
Worksheets(1).Copy after:=Worksheets(x) 
ActiveSheet.Name = name 

请让我知道这是否可行。非常感谢您的帮助。

谢谢。

Answer 1

你需要做一个循环。

Dim ws As Worksheet
Set ws = Worksheets("WorksheetWithNames")
Dim y As Integer

For y = 1 To 10 ' < enter the number of sheets you want.
    'copy the sheet

    'rename the sheet
    'assuming you have names in column A
    ActiveSheet.Name = ws.Cells(y, 1)

Next