Excel VBA遍历列创建对应工作表：现有代码无法正常运行

原代码存在的问题 #

• 循环起始逻辑错误：初始myRow=4，进入循环后先执行myRow=myRow+1，直接跳过第4行的A列判断，从第5行才开始读取B列数据
• found变量初始化位置错误：在遍历每个工作表时重置found=False，会覆盖之前的匹配结果——比如第一个工作表已经匹配上了，第二个工作表又把found改成False，最终判断会出错
• 未指定Cells和Range所属的工作表，切换工作表时容易出现引用错误
• 没处理B列空单元格、非法工作表名称的情况

修正后的代码 #

Sub genWorksheet()
    Dim myRow As Integer
    Dim categoryName As String
    Dim sht As Worksheet
    Dim found As Boolean
    ' 指定数据所在的工作表，根据实际修改名称
    Dim dataSht As Worksheet
    Set dataSht = ThisWorkbook.Worksheets("Sheet1")
    
    myRow = 4
    
    Do While dataSht.Cells(myRow, 1) <> ""
        categoryName = Trim(dataSht.Range("B" & myRow).Value)
        
        ' 跳过空的分类名称
        If categoryName = "" Then
            myRow = myRow + 1
            GoTo ContinueLoop
        End If
        
        ' 初始化found为False，放在遍历工作表之前
        found = False
        For Each sht In ThisWorkbook.Worksheets
            If sht.Name = categoryName Then
                found = True
                Exit For ' 找到匹配后直接退出循环
            End If
        Next sht
        
        ' 未找到则创建新工作表，添加错误处理捕获非法名称
        If Not found Then
            On Error Resume Next
            Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = categoryName
            If Err.Number <> 0 Then
                MsgBox "无法创建工作表：" & categoryName & "，名称包含非法字符或已被占用"
            End If
            On Error GoTo 0
        End If
        
ContinueLoop:
        myRow = myRow + 1
    Loop
End Sub

关键改动说明 #

1. 指定数据工作表：明确用dataSht变量绑定数据所在的工作表，避免跨工作表引用出错
2. 调整循环逻辑：先读取当前行的B列数据，再递增行号，确保第4行的内容被正常处理
3. 修正found变量位置：把found=False移到遍历工作表的循环之前，保证每次检查都是从“未找到”的初始状态开始
4. 添加空值过滤：跳过B列空单元格，避免创建空名称的工作表
5. 错误处理：捕获非法工作表名称的报错，弹出提示避免程序崩溃

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