DeepSeek+Excel 效率翻倍

2025年初，DeepSeek以惊人的效率突破技术壁垒，用极低的成本实现了与行业顶尖AI相媲美的性能，瞬间成为全球科技领域的热门话题。

那么AI工具的普及将如何改变我们的工作方式？Excel会被取代吗？

今天，珠珠带你们来看看：如何利用Deepseek来解决excel问题。

功能1：图片转表格—— 一键搞定复杂数据录入

在日常工作中，我们常常需要将图片中的表格数据手动录入Excel，不仅耗时耗力，还容易出错。
而DeepSeek的“图片转表格”功能，只需上传图片，AI就能自动识别图片中的文字和表格结构，快速生成可直接编辑的Excel表格。
无论是财务报表、数据报告，还是手写表格，都能轻松转换，大大节省了时间和精力，同时避免了手动录入的错误风险。
先看看执行效果：

操作步骤：

1. 打开DeepSeek官网，https://chat.deepseek.com/，上传需要转换的图片。
2. 输入指令：“将上面的图片转换为要以直接粘贴到excel表格里的数据”。
3. AI会自动识别图片内容，生成可直接粘贴的Excel表格。

效率提升：从几小时缩短到几秒钟！

功能2：AI写公式——告别复杂公式的记忆

在Excel中，复杂的公式常常让人头疼，尤其是面对多条件求和、嵌套函数或数组公式时，不仅需要记忆大量语法，还容易出错。
实例：
比如我想在进货单上查找供应商的电话号码:（如图所示）

操作步骤：

1. 在DeepSeek对话框中输入你的需求:
   在excel里，F3单元格里的公式：想根据D3单元格里的内容，想查找出商品信息表中的电话号码，商品信息表的格式是第一列是序号，第二列是供货单位，第三列是电话号码。F3单元格里的公式想利用vlookup函数来写。

2. AI会自动生成对应的Excel公式。

看一下操作：

效率提升：无需记忆复杂公式，AI帮你搞定！

功能3：公式纠错——快速排查错误

在Excel中，编写复杂公式时难免会出现错误，尤其是当公式涉及多个嵌套函数或引用大量数据时，手动排查错误既耗时又费力。
想看看这个公式：=SUMIFS(B2:B10, A2:A10, “销售”, B2:B10, >1000)，哪个地方是错误的？
操作步骤：
将出错的公式复制到DeepSeek对话框中。

输入指令：“请帮我检查这个公式的错误”。

AI会快速定位错误并提供修正建议。

功能4：VBA代码生成——自动化操作不再是难题

借助DeepSeek的智能编写能力，用户可以轻松实现复杂的自动化任务，不仅提升了工作效率，还减少了手动操作带来的错误风险，
需求：写一个VBA代码，根据单元格填充色求和。
操作步骤：

1. 在DeepSeek对话框中输入你的需求：

2. 输入指令：“写一个函数代码：根据单元格填充色求和，代码要注释”

3. AI会自动生成对应的VBA代码，并提供操作步骤。
   

效率提升：从零基础到自动化操作，AI帮你实现！

功能5：数据透视表生成——快速分析海量数据

即使您不熟悉数据透视表的制作，也可以通过DeepSeek来生成数据透视表并快速分析海量数据。
需求：生成一个数据透视表，按“产品名称”和“产品类别”分类汇总销售额。

效率提升：从手动设置到AI一键生成，数据分析更高效！

wps 加载deepseek

第一步：【安全设置】打开WPS-EXCEL，选择“文件”—“选项”—“信任中心”，勾选“启用宏后自动添加为受信任的文档”、“启用所有第三方COM加载项，重启WPS后生效”两个按钮，点击“确定”。

第二步：【打开VB 编辑器】打开WPS-EXCEL，选择工具栏中的“工具”—“开发工具”—“VB编辑器”。

第三步：【打开VB编辑器，存入开发代码】选择左侧工程中的”Project“点击右键，依次选择”插入“—”模块“，复制代码至”模块1“的VB编辑器中，点击保存。

第四步：【打开EXCEL，调用deepseek】在打开的EXCEL表格中，任意选中单元格，输入”=deepseek“，系统自动弹出【=deepseek()】，在括号内先写双引号，引号内输入你想让deepseek完成的工作。示例中，我写下了”请对A、B、C、D、E列分别求和，再对前面得出的结果求解平均，再对结果开平方“。

第五步：【验证deepseek生成的公式是否准确】deepseek自动生成公式后，复制至其他单元格即可使用，系统已完成公式书写，并计算出相应结果。

第六步:【deepseek还能为你做什么】与第四步相同，要求deepseek依次输入青海省各市、州面积。

第七步：【验证deepseek输出面积是否正确】经与百度结果比对，认为deepseek数据库可能未做更新，实例仅供参考，有兴趣的朋友可自行尝试。

VB开发代码

'在“Const YOUR_DEEPSEEK_API_KEY”配置自己的deepseek sk-开头的API KEY
'官网:https://platform.deepseek.com/usage
Const YOUR_DEEPSEEK_API_KEY  As String = "<DeepSeek API Key>"
Function deepseek(userQuery As String, _Optional base_str As String = "")' 创建XMLHTTP对象Dim xhr As ObjectSet xhr = CreateObject("MSXML2.XMLHTTP.6.0")If base_str <> "" ThenuserQuery = userQuery & "你分析的内容：" & base_strEnd IfuserQuery = userQuery & "，请尽量直接返回处理结果,不需要过程！"'转JSON辅助用userQuery = EscapeJsonString(userQuery)requestBody = "{""model"": ""deepseek-chat"", ""messages"":[{""role"": ""system"", ""content"": ""你是一个Excel办公助手！""},{""role"": ""user"", ""content"": """ & userQuery & """}],""max_tokens"": 2048,""stream"": false}"With xhr.Open "POST", "https://api.deepseek.com/chat/completions", True' 设置请求头.setRequestHeader "Content-Type", "application/json".setRequestHeader "Authorization", "Bearer " & YOUR_DEEPSEEK_API_KEY' 开始时间st = Timer' 发送请求.send requestBodyn = 0Do While .readyState <> 4If Timer - st > 100 Then.abortst = Timer.send requestBodyn = n + 1End IfDoEventsIf n > 3 Thendeepseek = "请求失败" + .StatusExit FunctionEnd IfLoop' 获取响应If .Status = 200 Thendeepseek = Replace(Trim(Replace(Split(Split(.responseText, """content"":")(1), "}")(0), Chr(34), "")), "\n", Chr(10))End IfEnd With
End FunctionFunction EscapeJsonString(inputStr As String) As StringDim result As StringDim i As IntegerDim char As Stringresult = ""For i = 1 To Len(inputStr)char = Mid(inputStr, i, 1)Select Case charCase """"result = result & "\"""Case "\"result = result & "\\"Case "/"result = result & "\/"Case vbBackresult = result & "\b"Case vbFormFeedresult = result & "\f"Case vbCrLfresult = result & "\r\n"Case vbLfresult = result & "\n"Case vbCrresult = result & "\r"Case vbTabresult = result & "\t"Case Else' 处理其他字符（包括Unicode字符）If Asc(char) < 32 Or Asc(char) > 126 Thenresult = result & "\u" & Right("0000" & Hex(AscW(char)), 4)Elseresult = result & charEnd IfEnd SelectNext iEscapeJsonString = result
End Function

DeepSeek的五大功能让我们看到了AI工具的无限潜力。无论是图片转表格、公式生成、纠错，还是VBA代码生成，AI都能大幅提升我们的工作效率。