Question

在下面的代码中，我正在尝试创建一个名为＆＃34; Summary＆＃34;的新工作表。但是，如果＆＃34;摘要＆＃34;工作表已存在，我收到错误。我如何简单地添加一个名为＆＃34; Summary X＆＃34; （其中X是1，或2，或3，或......），如果＆＃34;摘要＆＃34;表已存在。也就是说，每次我运行代码时，都会出现一个新的＆＃34;摘要X＆＃34;工作表将添加没有错误。在这种情况下，如果代码第二次运行，则会有一个摘要和摘要1选项卡，依此类推....

以下是代码：

ng

Answer 1

这是一个快速子版，您可以修改以满足您的需求：

Sub setSheets()
Dim ws As Worksheet, wsReport
Dim i As Long

For Each ws In ActiveWorkbook.Worksheets
    If ws.Name Like "Summary*" Then
        i = i + 1
    End If
Next ws

Set wsReport = ThisWorkbook.Sheets.Add
If i > 0 Then
    wsReport.Name = "Summary" & i + 1
Else
    wsReport.Name = "Summary"
End If

End Sub

如果工作表已存在，则重命名excel工作表

1 个答案: