用DeepSeek实现excel表格的拆分实践

1. 打开DeepSeek 网站
2. 单击 上传附件图标，  上传《演示拆分.xlsx》，输入提示词：在一个工作簿中，将工作表中的数据按C列部门拆分，每个部门另存为一个工作簿，帮我写一段VBA代码。
3. DeepSeek生成了下面的代码，复制出来

Sub SplitByDepartment()     Dim lastRow As Long     Dim i As Long     Dim department As Variant     Dim wb As Workbook     Dim newWb As Workbook     Dim ws As Worksheet     Dim newWs As Worksheet     Dim folderPath As String