用DeepSeek自动处理Excel表格，拆分一秒完成，太香了吧！

1

大家好，我是IT测试之美。

在工作中使用Excel实现自动化办公，合并拆分Excel文件是常用操作。

不会使用DeepSeek处理Excel表格时，通过手工新建表格、拆分内容工作效率低，现在有了DeepSeek自动处理Excel表格拆分后，工作效率提升300%。

今天与大家分享如何使用DeepSeek自动拆分表格。

假设我现在要制作一张软件工程系计科班学生成绩表,命名为：【软件工程系计科班学生成绩表.xlsx】，让DeepSeek自动帮我生成一张表。

2

实现思路：撰写提示词

新建一份Excel表格文件，复制DeepSeek生成的数据到表格中，调整优化整理，一张表格数据做好了，效果如下图：

3

1、使用DeepSeek帮我撰写VBA脚本。

在Excel表格中实现表格自动拆分，根据班级名称拆分成三个表格。

Sub SplitDataByClass()

  Dim ws As Worksheet

  Dim lastRow As Long

  Dim lastCol As Long

  Dim classDict As Object

  Dim classRange As Range

  Dim cell As Range

  Dim className As String

  Dim newWb As Workbook

  Dim newWs As Worksheet

  Dim outputPath As String

  ' 设置输出路径（当前工作簿所在文件夹）

  outputPath = ThisWorkbook.Path & "\"

  ' 获取当前工作表

  Set ws = ThisWorkbook.Sheets("Sheet1")

  ' 获取最后一行和最后一列

  lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

  lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

  ' 创建字典用于存储班级数据

  Set classDict = CreateObject("Scripting.Dictionary")

  ' 遍历班级列（假设班级列是第3列）

  For Each cell In ws.Range("C2:C" & lastRow)

      className = cell.Value

      If Not classDict.exists(className) Then

          ' 如果班级不存在于字典中，则初始化一个范围

          classDict.Add className, cell.Offset(0, -2).Resize(1, lastCol)

      Else

          ' 如果班级已存在，则扩展范围

          Set classDict(className) = Union(classDict(className), cell.Offset(0, -2).Resize(1, lastCol))

      End If

  Next cell

  ' 遍历字典，生成每个班级的Excel文件

  For Each className In classDict.keys

      ' 创建新工作簿

      Set newWb = Workbooks.Add

      Set newWs = newWb.Sheets(1)

      ' 复制标题行

      ws.Rows(1).Copy Destination:=newWs.Rows(1)

      ' 复制班级数据

      classDict(className).Copy Destination:=newWs.Rows(2)

      ' 保存文件

      newWb.SaveAs Filename:=outputPath & className & ".xlsx", FileFormat:=xlOpenXMLWorkbook

      newWb.Close SaveChanges:=False

  Next className

  ' 释放字典对象

  Set classDict = Nothing

  MsgBox "拆分完成！文件已保存到：" & outputPath, vbInformation

End Sub

2、打开Excel文件，按Alt + F11打开VBA编辑器。

3、在VBA编辑器中，插入一个新模块（Insert > Module）。

4、将上述代码粘贴到模块中，执行代码。

4

5、最终拆分成三个文件，效果如下图所示：

如果以后需要用到文件拆分的脚本，可将脚本文件保存起来格式为.xlsm，下次直接使用即可。

如果脚本逻辑与需求不符，按照上述要求撰写VBA提示词，让DeepSeek自动生成脚本使用即可。

如果想对Excel文件内容进行合并，请阅读此文

5

总之，只要你按照上述操作步骤和方法操作，就能实现AI办公自动化Excel表格的合并和拆分功能，不用局限于WPS会员权限，让DeepSeek免费帮你写Excel自动化操作脚本，你只管执行脚本，实现AI自动化办公，提升工作效率200%。

精选文章推荐