如何合并两段VBA代码实现批量生成独立工作簿？

下面是合并后的代码，去掉了中间创建工作表的步骤，直接为每一行数据生成独立工作簿，同时保留你原来的命名规则和表头复制逻辑：

Sub GenerateIndividualWorkbooks()
    Dim wbSource As Workbook, wsSource As Worksheet
    Dim wbNew As Workbook, wsNew As Worksheet
    Dim x As Long, lastRow As Long
    Dim strFilepath As String, fileName As String
    Dim invalidChars As Variant, char As Variant
    
    ' 初始化源工作簿和工作表
    Set wbSource = ThisWorkbook
    Set wsSource = wbSource.Worksheets("Consolidated")
    strFilepath = wbSource.Path & "\"
    lastRow = wsSource.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 关闭屏幕刷新，提升处理速度
    Application.ScreenUpdating = False
    ' 禁止覆盖提示
    Application.DisplayAlerts = False
    
    ' 定义文件名非法字符，避免保存失败
    invalidChars = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
    
    ' 循环处理每行数据（从第8行开始）
    For x = 8 To lastRow
        ' 新建空白工作簿
        Set wbNew = Workbooks.Add
        Set wsNew = wbNew.Worksheets(1)
        
        ' 生成文件名（原规则：第1列+空格+第2列），替换非法字符
        fileName = wsSource.Cells(x, 1).Value & " " & wsSource.Cells(x, 2).Value
        For Each char In invalidChars
            fileName = Replace(fileName, char, "")
        Next char
        
        ' 复制源表的1-7行表头到新工作簿
        wsSource.Range("1:7").Copy wsNew.Range("A1")
        
        ' 复制当前行数据到新表的A8位置
        wsSource.Rows(x).Copy wsNew.Range("A8")
        
        ' 保存并关闭新工作簿
        wbNew.SaveAs strFilepath & fileName
        wbNew.Close False
    Next x
    
    ' 恢复系统设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "全部处理完成", vbExclamation + vbOKOnly
End Sub

关键改动说明 #

1. 去掉中间工作表：不再在源工作簿里创建临时工作表，直接新建空白工作簿一步到位，避免额外的文件操作
2. 表头复制优化：直接复制源表的1-7行到新工作簿，替代原来的FillAcrossSheets方法，逻辑更直观
3. 文件名合法性处理：新增非法字符替换逻辑，避免数据里包含\/:*?"<>|这类不能作为文件名的字符导致保存失败（处理400行数据时大概率会遇到这类问题）
4. 性能优化：保留屏幕刷新关闭，新增关闭覆盖提示，大幅减少弹窗和界面刷新，提升批量处理速度
5. 变量命名更清晰：把模糊的变量名改成wbSource（源工作簿）、wsNew（新工作簿工作表），新手更容易理解每个变量的作用

使用注意事项 #

• 确保源工作簿已经保存过，否则ThisWorkbook.Path会为空，导致保存路径错误
• 如果存在重复的文件名，后续文件会直接覆盖前面的，若需要避免覆盖，可以在文件名后添加序号（比如文件名_1）
• 处理400行数据需要几分钟，不要中途中断程序，等待弹窗提示完成即可

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