昨天兰色共享了让Deepseek设立公式的法子人妖 sm，凯旋完成了条目。今天再试一个更难的表格处理。

如下图表中，条目按A列形势内容拆分红多个表格并另存为单独的excel文献，文献名为A列的值。

图片人妖 sm

条目拆分遵循：

图片

具体操作设施：

1、让DeepSeek生成代码

掀开https://www.deepseek.com/，点别针先把表格文献上传（上传表格截图也不错）

图片

把问题提交给deepSeek（一定要描述明晰）

图片

很快想路和VBA代码就生成了，况兼提供了代码的提神使用评释

Sub SplitDataByProject()    Dim dict As Object    Dim wsSource As Worksheet    Dim lastRow As Long， i As Long    Dim key As Variant    Dim newWb As Workbook    Dim newWs As Worksheet    Dim savePath As String    '设立字典用于存储独一形势值    Set dict = CreateObject("Scripting.Dictionary")    Set wsSource = ThisWorkbook.Sheets("A表") '左证骨子表名修改    '取得数据终末一瞥    lastRow = wsSource.Cells(wsSource.Rows.Count， "A").End(xlUp).Row    '网罗独一形势值（舍弃标题行）    For i = 2 To lastRow        If Not dict.exists(wsSource.Cells(i， 1).Value) Then            dict.Add wsSource.Cells(i， 1).Value， Nothing        End If    Next i    '设立保存旅途（默许为现时责任簿旅途）    savePath = ThisWorkbook.Path & "\"    Application.ScreenUpdating = False    Application.DisplayAlerts = False    '轮回处理每个形势    For Each key In dict.keys        '创建新责任簿        Set newWb = Workbooks.Add        Set newWs = newWb.Sheets(1)        '复制标题行        wsSource.Rows(1).Copy newWs.Rows(1)        '筛选并复制数据        wsSource.Range("A1:F" & lastRow).AutoFilter Field:=1， Criteria1:=key        wsSource.UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).Copy newWs.Range("A2")        '覆没筛选        wsSource.AutoFilterMode = False        '保存文献        newWb.SaveAs savePath & key & ".xlsx"        newWb.Close    Next key    '规复设立    Application.ScreenUpdating = True    Application.DisplayAlerts = True    MsgBox "已拆分生成 " & dict.Count & " 个文献！"End Sub

图片

2、按上头评释扩充代码

按Alt+f11掀开VBE编程器（WPS需要装置WPS VBA插件）

插入菜单-添加模块后，把代码粘贴的右侧空缺处中，点三角开动

图片

只需1秒，在现时文献夹下就生成4个新文献

图片

哥也色中文娱乐地址

掀开后恰是拆分后的表格，DeepSeek任务凯旋完成。

图片

淌若代码需要保存在excel责任簿内，文献需要另存为启用宏的责任簿

图片

兰色说：有了VBA加握，DeepSeep不错帮咱们完成许多复杂责任，除了本文的拆分，消灭多个excel文献等操作也不错处治。

本站仅提供存储行状，统共内容均由用户发布，如发现存害或侵权内容，请点击举报。