如何修改VBA代码跳过重复工作表名，避免生成模板时报错

你的代码逻辑框架可行，但存在几处细节错误导致跳过重复工作表的功能失效，以下是修正后的完整代码，能实现仅为新增行创建工作表、跳过已存在的条目：

Sub CreateAndNameWorksheets()
    Dim c As Range, wsTenantList As Worksheet, wsNew As Worksheet
    Dim nm As String, wb As Workbook
    Dim wscount As Integer
    
    ' 初始化变量
    Set wb = ThisWorkbook
    Set wsTenantList = wb.Sheets("TenantList")
    wscount = 0 ' 初始化计数变量
    
    Application.ScreenUpdating = False
    
    ' 遍历租户列表的B列（从B5开始到最后一行有数据的行）
    For Each c In wsTenantList.Range("b5:b" & wsTenantList.Range("b" & Rows.Count).End(xlUp).Row)
        nm = Trim(c.Value) ' 去除首尾空格，避免无效名称
        
        ' 先过滤空值和过长的名称
        If Len(nm) > 0 And Len(nm) <= 31 Then
            ' 检查工作表是否已存在
            If Not SheetExists(nm, wb) Then
                ' 复制模板工作表到最后
                wb.Worksheets("TenantTemplate").Copy after:=wb.Sheets(wb.Sheets.Count)
                Set wsNew = wb.Sheets(wb.Sheets.Count)
                
                ' 重命名新工作表
                wsNew.Name = nm
                
                ' 给单元格添加超链接到新工作表
                wsTenantList.Hyperlinks.Add Anchor:=c, Address:="", _
                    SubAddress:="'" & nm & "'!B5", TextToDisplay:=nm
                
                ' 在这里添加填充模板单元格的代码（示例）
                ' 比如将租户列表C列的内容复制到新工作表的A1：
                ' wsNew.Range("A1").Value = c.Offset(0, 1).Value
                
                wscount = wscount + 1
            End If
        End If
    Next c
    
    Application.ScreenUpdating = True
    MsgBox "新创建工作表数量: " & wscount
End Sub

' 检测指定名称的工作表是否存在
Function SheetExists(SheetName As String, Optional wb As Excel.Workbook) As Boolean
    Dim s As Excel.Worksheet
    If wb Is Nothing Then Set wb = ThisWorkbook
    
    On Error Resume Next
    Set s = wb.Sheets(SheetName)
    On Error GoTo 0
    
    SheetExists = Not s Is Nothing
End Function

关键修改说明： #

• 初始化计数变量：新增wscount = 0，确保计数从0开始，统计准确。
• 过滤无效条目：提前判断单元格内容是否为空（用Trim去除空格后检查长度），跳过空行；同时保留名称长度不超过31的限制（Excel工作表名称最大长度）。
• 修正工作表引用：将原代码中的ws重命名为wsTenantList，避免在循环中意外清空引用；新增wsNew变量专门指向新创建的工作表，逻辑更清晰。
• 优化错误处理：移除不必要的On Error Resume Next，仅在SheetExists函数中使用错误处理来检测工作表是否存在。
• 预留数据填充位置：添加了注释示例，告诉你如何在创建工作表后填充模板内的特定单元格，你可以根据自己的需求修改这部分代码。

现在运行宏时，只会为租户列表中尚未生成对应工作表的条目创建新标签，已存在的条目会直接跳过，不会再因名称重复报错。

内容的提问来源于stack exchange，提问作者rgree05