DeepSeek+Excel 效率翻倍
2025年初，DeepSeek以惊人的效率突破技术壁垒，用极低的成本实现了与行业顶尖AI相媲美的性能，瞬间成为全球科技领域的热门话题。
那么AI工具的普及将如何改变我们的工作方式？Excel会被取代吗？
今天，珠珠带你们来看看：如何利用Deepseek来解决excel问题。
功能1：图片转表格—— 一键搞定复杂数据录入
在日常工作中，我们常常需要将图片中的表格数据手动录入Excel，不仅耗时耗力，还容易出错。
而DeepSeek的“图片转表格”功能，只需上传图片，AI就能自动识别图片中的文字和表格结构，快速生成可直接编辑的Excel表格。
无论是财务报表、数据报告，还是手写表格，都能轻松转换，大大节省了时间和精力，同时避免了手动录入的错误风险。
先看看执行效果：
操作步骤：
- 打开DeepSeek官网，https://chat.deepseek.com/，上传需要转换的图片。
- 输入指令：“将上面的图片转换为要以直接粘贴到excel表格里的数据”。
- AI会自动识别图片内容，生成可直接粘贴的Excel表格。
效率提升：从几小时缩短到几秒钟！
功能2：AI写公式——告别复杂公式的记忆
在Excel中，复杂的公式常常让人头疼，尤其是面对多条件求和、嵌套函数或数组公式时，不仅需要记忆大量语法，还容易出错。
实例：
比如我想在进货单上查找供应商的电话号码:（如图所示）
操作步骤：
-
在DeepSeek对话框中输入你的需求:
在excel里，F3单元格里的公式：想根据D3单元格里的内容，想查找出商品信息表中的电话号码，商品信息表的格式是第一列是序号，第二列是供货单位，第三列是电话号码。F3单元格里的公式想利用vlookup函数来写。 -
AI会自动生成对应的Excel公式。
看一下操作：
效率提升：无需记忆复杂公式，AI帮你搞定！
功能3：公式纠错——快速排查错误
在Excel中，编写复杂公式时难免会出现错误，尤其是当公式涉及多个嵌套函数或引用大量数据时，手动排查错误既耗时又费力。
想看看这个公式：=SUMIFS(B2:B10, A2:A10, “销售”, B2:B10, >1000)，哪个地方是错误的？
操作步骤：
将出错的公式复制到DeepSeek对话框中。
输入指令：“请帮我检查这个公式的错误”。
AI会快速定位错误并提供修正建议。
功能4：VBA代码生成——自动化操作不再是难题
借助DeepSeek的智能编写能力，用户可以轻松实现复杂的自动化任务，不仅提升了工作效率，还减少了手动操作带来的错误风险，
需求：写一个VBA代码，根据单元格填充色求和。
操作步骤：
-
在DeepSeek对话框中输入你的需求：
-
输入指令：“写一个函数代码：根据单元格填充色求和，代码要注释”
-
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 Object
Set xhr = CreateObject("MSXML2.XMLHTTP.6.0")
If base_str <> "" Then
userQuery = userQuery & "你分析的内容：" & base_str
End If
userQuery = 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 requestBody
n = 0
Do While .readyState <> 4
If Timer - st > 100 Then
.abort
st = Timer
.send requestBody
n = n + 1
End If
DoEvents
If n > 3 Then
deepseek = "请求失败" + .Status
Exit Function
End If
Loop
' 获取响应
If .Status = 200 Then
deepseek = Replace(Trim(Replace(Split(Split(.responseText, """content"":")(1), "}")(0), Chr(34), "")), "\n", Chr(10))
End If
End With
End Function
Function EscapeJsonString(inputStr As String) As String
Dim result As String
Dim i As Integer
Dim char As String
result = ""
For i = 1 To Len(inputStr)
char = Mid(inputStr, i, 1)
Select Case char
Case """"
result = result & "\"""
Case "\"
result = result & "\\"
Case "/"
result = result & "\/"
Case vbBack
result = result & "\b"
Case vbFormFeed
result = result & "\f"
Case vbCrLf
result = result & "\r\n"
Case vbLf
result = result & "\n"
Case vbCr
result = result & "\r"
Case vbTab
result = result & "\t"
Case Else
' 处理其他字符（包括Unicode字符）
If Asc(char) < 32 Or Asc(char) > 126 Then
result = result & "\u" & Right("0000" & Hex(AscW(char)), 4)
Else
result = result & char
End If
End Select
Next i
EscapeJsonString = result
End Function
DeepSeek的五大功能让我们看到了AI工具的无限潜力。无论是图片转表格、公式生成、纠错，还是VBA代码生成，AI都能大幅提升我们的工作效率。