我要投稿

DeepSeek：Excel，你已经长大了可以自动处理数据了

发布日期：2025-02-09 21:33:54 浏览次数： 7191

作者：ExcelBI星球

微信搜一搜，关注“ExcelBI星球”

大家新年好，过完这个春节，DeepSeek已经成了人尽皆知的一个AI工具了，没有人能回避，确实太强大了。今天的文章来探讨一下deepseek与Excel结合的应用。

我写过两本书一本是Excel进阶指南、一本是。现在看来书里面的很多数据分析难题用deepseek几秒就可以搞定了，当然前提是你具备与AI对话的能力。

我们以当年Power Query让人觉得拯救生命的文件合并功能来验证一下deepseek的能力。示例文件是一个包含3张工作表的Excel文档，它们格式相同，我们要让它们首尾相接合并在一起。

来到DeepSeek官网（www.deepseek.com），简单注册以后，直接向deepseek提问：

我给你发一个Excel工作簿，里面有三个工作表，他们的格式是一样的，你能帮我把他们合并在一起吗？

把本地的Excel文件也发给它，点击对话框中的回形针图标

就可以发送文件。提问的时候开启深度思考

与ChatGPT、豆包及kimi不同的是deepseek会将思考过程以灰色字展示出来。我们应该仔细的阅读它的思考过程，看看我们的需求是否被正确解读了。

关于数据合并deepseek给出了三种方法，并且告诉我们使用Power Query可能是最佳选择，也给出了相应的界面操作步骤和功能菜单的路径。

在Excel中，合并多个工作表的方法有多种：

1. **手动复制粘贴**：逐个打开每个工作表，复制数据，然后粘贴到新工作表中。但如果有多个工作表或数据量大，这种方法效率低，容易出错。

2. **使用Power Query（Excel内置工具）**：

- 在Excel中，可以通过Power Query来合并多个结构相同的工作表。

- 步骤包括：获取数据从工作簿，选择多个工作表，追加查询，然后加载到新工作表。

- 这种方法适合处理大量数据，且操作相对简单，但需要用户启用Power Query插件（在较新版本的Excel中称为“获取和转换数据”）。

3. **使用VBA宏**：编写一个简单的VBA脚本来自动遍历所有工作表并合并数据。这对于不熟悉编程的用户来说可能有些复杂，但可以一次性解决问题。

考虑到用户可能更倾向于使用无需编程的方法，Power Query可能是最佳选择。需要详细说明步骤，确保用户能够按照指引操作。同时，提醒用户在合并后检查数据是否完整，是否有重复项需要处理。

一、界面操作描述能力

下面是deepseek给出的操作步骤，deepseek选择的方法是追加查询，并且给出了非常细致的操作路径，只要使用过Power Query就能轻松的完成操作。

AI没告诉你的

deepseek仅在步骤2漏了勾选选择多项。勾选了此选项才能分别选择三张工作表。当然这是使用电脑的基本常识，很容易理解。

deepseek最后甚至给出了注意事项。

二、VBA编程能力

众所周知，AI工具非常擅长于编程，于是我进一步让它给出了合并数据的VBA代码。

同样的经过深度思考以后，deepseek给出了规范、清晰的代码，甚至还包含了注释。deepseek给出的代码如下：

Sub MergeSheets()Application.ScreenUpdating = False' 关闭屏幕刷新，提升速度Application.Calculation = xlCalculationManual' 关闭自动计算Dim wsDest As WorksheetDim wsSrc As WorksheetDim lastRowSrc As LongDim lastRowDest As LongDim headerRow As Range' 创建或清空目标工作表On Error Resume NextSet wsDest = ThisWorkbook.Sheets("合并结果")If Err.Number <> 0 ThenSet wsDest = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))wsDest.Name = "合并结果"ElsewsDest.Cells.ClearContents' 清空原有数据End IfOn Error GoTo 0' 复制标题行（假设所有工作表结构一致）Set headerRow = ThisWorkbook.Sheets("Sheet1").Rows(1)headerRow.Copy Destination:=wsDest.Range("A1")' 循环处理每个工作表For Each wsSrc In ThisWorkbook.SheetsIf wsSrc.Name <> wsDest.Name And _ (wsSrc.Name = "Sheet1" Or wsSrc.Name = "Sheet2" Or wsSrc.Name = "Sheet3") ThenlastRowSrc = wsSrc.Cells(wsSrc.Rows.Count, "A").End(xlUp).Row' 获取数据最后一行lastRowDest = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row + 1' 目标表下一行' 复制数据（从第2行开始，跳过标题）wsSrc.Range("A2:J" & lastRowSrc).Copy _Destination:=wsDest.Range("A" & lastRowDest)End IfNext wsSrcApplication.ScreenUpdating = True' 恢复屏幕刷新Application.Calculation = xlCalculationAutomatic' 恢复自动计算MsgBox "合并完成！共合并 " & wsDest.UsedRange.Rows.Count - 1 & " 行数据。", vbInformationEnd Sub

如果你没用过VBA也没关系，deepseek同样给出了详细的使用步骤。将代码复制到同一个工作簿中，按照步骤插入和执行。