Excel VBA 宏代码生成提示词（中文描述需求 → 带注释的宏，含备份提醒、报错处理与运行步骤）

怎么填变量：[样例数据] 至少给表头和 3 行数据，并说清哪一列是关键列。[需求描述] 写成「把『数据』表按 C 列『部门』拆分成多个工作表，每个工作表保留表头」这样可操作的描述。用 WPS 的话一定要写在 [软件与版本] 里——WPS 对 VBA 的支持因版本而异，需要先确认你的版本能运行宏。

常见坑：

• 宏执行后无法撤销，第一次运行一定要在副本上测试。
• 保存成 .xlsx 会丢失宏代码，要另存为 .xlsm。
• 从网上下载的含宏文件默认被禁用宏，这是安全机制；只对自己写的、来源可信的宏启用。

追问技巧：运行报错时，把报错对话框的文字和 VBA 编辑器里高亮的那一行一起贴回去；需求有变化时说「在现有代码基础上增加：拆分后每个工作表自动调整列宽」，避免整段重写。

示例输出

示例，仅供参考（按 C 列「部门」拆分到多个工作表，假设 A 列每行都有值）

vba
Option Explicit

Sub SplitByDepartment()
    Dim src As Worksheet, ws As Worksheet
    Dim lastRow As Long, r As Long
    Dim key As String

    If MsgBox("将按部门拆分「数据」表，建议先备份。继续吗？", vbYesNo) <> vbYes Then Exit Sub
    Set src = ThisWorkbook.Worksheets("数据")
    lastRow = src.Cells(src.Rows.Count, "C").End(xlUp).Row

    Application.ScreenUpdating = False
    On Error GoTo CleanUp
    For r = 2 To lastRow
        key = Trim(CStr(src.Cells(r, "C").Value))
        If key <> "" And key <> src.Name Then   ' 防止把行追加回源表
            Set ws = Nothing
            On Error Resume Next            ' 工作表不存在时不报错，ws 保持 Nothing
            Set ws = ThisWorkbook.Worksheets(key)
            On Error GoTo CleanUp
            If ws Is Nothing Then
                Set ws = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
                ws.Name = key                ' 部门名含非法字符或超过 31 个字符时会报错
                src.Rows(1).Copy ws.Rows(1)  ' 复制表头
            End If
            src.Rows(r).Copy ws.Rows(ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1)
        End If
    Next r

CleanUp:
    Application.ScreenUpdating = True
    If Err.Number <> 0 Then MsgBox "第 " & r & " 行处理出错：" & Err.Description, vbExclamation
End Sub