求助：如何基于Excel A2-A30数据自动创建同名工作表（VBA宏失效）

以下是经过验证的VBA脚本，可实现从A2:A30区域读取内容，自动创建对应名称的工作表，同时处理空单元格、非法字符和重复名称等常见问题：

Sub CreateSheetsFromList()
    Dim wsSource As Worksheet
    Dim cell As Range
    Dim sheetName As String
    Dim invalidChars As Variant
    Dim char As Variant
    
    ' 设置来源工作表（这里默认用当前活动表，可改为具体表名如Sheet1）
    Set wsSource = ActiveSheet
    
    ' 定义工作表名禁止使用的特殊字符
    invalidChars = Array("/", "\", "?", "*", "[", "]")
    
    ' 遍历A2到A30的单元格
    For Each cell In wsSource.Range("A2:A30")
        sheetName = Trim(cell.Value)
        
        ' 跳过空单元格
        If sheetName = "" Then GoTo NextCell
        
        ' 将非法字符替换为下划线
        For Each char In invalidChars
            sheetName = Replace(sheetName, char, "_")
        Next char
        
        ' 检查工作表是否已存在
        On Error Resume Next
        Dim wsCheck As Worksheet
        Set wsCheck = ThisWorkbook.Sheets(sheetName)
        On Error GoTo 0
        
        If wsCheck Is Nothing Then
            ' 在工作簿末尾创建新工作表并命名
            ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = sheetName
        End If
        
NextCell:
    Next cell
End Sub

使用步骤： #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧工程资源管理器中右键点击你的工作簿名称，选择「插入」→「模块」
3. 将上述代码粘贴到模块窗口中
4. 按下F5运行脚本，或回到Excel界面通过「开发工具」→「宏」选择CreateSheetsFromList执行

常见失败原因排查： #

• 非法字符问题：工作表名称不能包含/ \ ? * [ ]，未处理这类字符的脚本会直接报错，上述代码已自动替换为下划线
• 重复名称冲突：若A列存在重复内容，未做判断的脚本会触发错误，本代码会跳过已存在的工作表
• 宏权限限制：Excel默认禁用宏，打开文件时需点击「启用内容」才能正常运行脚本
• 单元格范围错误：确认数据确实在A2:A30区域，若范围不同，修改代码中的Range("A2:A30")即可

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