用DeepSeek自动处理Excel和WPS表格,拆分、合并一秒完成

前言

表格的拆分、合并一直是excel中的难题,而用deepseek可以让你一秒完成。

如下图表中,要求按A列项目内容拆分成多个表格并另存为单独的excel文件,文件名为A列的值。

图片

要求拆分后果:

图片

具体操作步骤:

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加持,DeepSeek可以帮我们完成很多复杂工作,除了本文的拆分,合并多个excel文件等操作也可以搞定。

另:拆分和合并工作簿、工作表,已添加到兰色工具箱中,安装过的同学可以用它一键生成,不用再让deepseek写代码了。

在这里插入图片描述

最近兰色工具箱添加了很多好用的功能,做分析、写公式、做高难度表格整理、生成高级图表、会计对账、表格拆分、合并等。“一键生成数据分析面板”的功能正在内部测试中,先看一下生成效果:

在这里插入图片描述

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值