基于指定列内容自动检查并创建Excel工作表的VBA代码需求

实现步骤与代码 #

1. 打开目标Excel工作簿，按Alt + F11打开VBA编辑器
2. 在左侧工程窗口找到ThisWorkbook模块，双击打开
3. 粘贴以下代码：

Private Sub Workbook_Open()
    Dim wsValidation As Worksheet
    Dim targetRange As Range
    Dim cell As Range
    Dim wsExists As Boolean
    Dim newWs As Worksheet
    
    ' 定位到Validation工作表
    Set wsValidation = ThisWorkbook.Worksheets("Validation")
    ' 指定要检查的B列范围（示例为B2:B7，可按需修改）
    Set targetRange = wsValidation.Range("B2:B7")
    
    ' 遍历范围内的每个单元格
    For Each cell In targetRange
        ' 跳过空单元格
        If Trim(cell.Value) <> "" Then
            wsExists = False
            ' 检查当前工作簿是否存在同名工作表
            For Each ws In ThisWorkbook.Worksheets
                If ws.Name = Trim(cell.Value) Then
                    wsExists = True
                    Exit For
                End If
            Next ws
            
            ' 不存在则新建工作表
            If Not wsExists Then
                ' 处理工作表名称合法性（规避非法字符）
                On Error Resume Next
                Set newWs = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
                newWs.Name = Trim(cell.Value)
                ' 若命名失败（含非法字符等），提示并清理空白表
                If Err.Number <> 0 Then
                    MsgBox "无法创建工作表：" & Trim(cell.Value) & "，名称包含非法字符或已被占用"
                    newWs.Delete
                End If
                On Error GoTo 0
            End If
        End If
    Next cell
End Sub

关键说明 #

• 代码会在每次打开工作簿时自动执行
• 自动跳过B列空单元格，避免创建无效名称的工作表
• 加入错误处理：若指定名称包含Excel禁用字符（如\ / : * ? " < > |），会弹出提示并删除错误创建的空白工作表
• 可通过修改targetRange = wsValidation.Range("B2:B7")调整要检查的B列范围

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