AI做Excel/表格：公式生成、数据整理、图表分析

告别Excel噩梦，用AI一键生成复杂公式，自动整理数据，快速制作专业图表。

第一章：AI辅助Excel基础

1.1 为什么用AI处理Excel？

Excel是职场必备工具，但复杂公式和数据处理往往令人头疼。AI可以：

自动生成复杂公式，无需记忆函数语法
快速整理和清洗 messy 数据
提供数据分析和可视化建议
生成VBA宏自动化重复操作
解释已有公式的逻辑

1.2 常用AI工具

ChatGPT/Claude：生成公式和代码
Excel内置AI：Office 365的AI功能
Google Sheets AI：智能填充和建议
专业工具：Rows.com、Equals.app

第二章：公式生成实战

2.1 基础公式生成

场景1：条件统计

需求描述：
我有一个销售数据表，A列是产品名称，B列是销售额，C列是地区。
请帮我写公式统计"华东"地区的总销售额。

AI生成：
=SUMIF(C:C,"华东",B:B)

解释：
SUMIF函数对满足条件的单元格求和
- 第一个参数：条件区域（C列地区）
- 第二个参数：条件（"华东"）
- 第三个参数：求和区域（B列销售额）

场景2：多条件查找

需求描述：
需要根据"姓名"和"月份"两个条件查找对应的业绩数据。

AI生成：
=INDEX(D:D,MATCH(1,(A:A="张三")*(B:B="1月"),0))

注意：这是数组公式，需要按Ctrl+Shift+Enter

场景3：动态排名

需求描述：
根据销售额自动排名，相同分数排名相同。

AI生成：
=RANK.EQ(B2,$B$2:$B$100)

或者中式排名（相同分数占1位）：
=SUMPRODUCT(($B$2:$B$100>B2)/COUNTIF($B$2:$B$100,$B$2:$B$100))+1

2.2 复杂公式生成

场景：提取文本中的数字

需求：
从"订单号：ORD-2024-00123"中提取纯数字部分

AI生成的数组公式：
=TEXTJOIN("",TRUE,IFERROR(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)*1,""))

简化版（Excel 365）：
=CONCAT(TEXTSPLIT(A1,,"0123456789",1))

第三章：数据清洗与整理

3.1 常见数据问题处理

问题1：去除重复值

数据 → 删除重复项
或使用公式：=IF(COUNTIF($A$1:A1,A1)=1,A1,"")

问题2：统一日期格式

混乱数据：2024.1.15、24/1/15、January 15, 2024

AI建议公式：
=DATEVALUE(SUBSTITUTE(SUBSTITUTE(A1,".","/"),"-","/"))

然后设置日期格式：Ctrl+1 → 日期 → 选择格式

问题3：拆分姓名和电话

数据："张三 13800138000"

提取姓名：
=LEFT(A1,FIND(" ",A1)-1)

提取电话：
=RIGHT(A1,LEN(A1)-FIND(" ",A1))

3.2 批量处理技巧

使用Power Query（推荐）

选择数据范围 → 数据 → 从表格
在Power Query编辑器中进行清洗
常用操作：删除列、拆分列、替换值、填充、分组
关闭并上载

第四章：数据分析与透视表

4.1 快速生成透视表

AI提示词模板：

我有一个销售数据表，包含：日期、产品、地区、销售额、销售员。
请帮我设计透视表分析方案，包括：
1. 按产品汇总销售额
2. 按月份趋势分析
3. 销售员业绩排名
4. 地区销售占比

请提供具体的透视表设置步骤。

AI回复示例：

插入 → 数据透视表 → 选择数据范围
拖拽设置： - 行：产品 - 值：销售额（求和）
添加计算字段：利润率 = 利润/销售额
设置值显示方式：列汇总的百分比

4.2 数据可视化建议

不同场景推荐图表：

对比数据：柱状图、条形图
趋势分析：折线图、面积图
占比关系：饼图、环形图、树状图
相关性：散点图、气泡图
KPI展示：仪表盘、卡片图

第五章：VBA自动化入门

5.1 让AI写VBA代码

示例1：批量合并多个工作表

Sub 合并工作表()
    Dim ws As Worksheet
    Dim targetWs As Worksheet
    
    Set targetWs = ThisWorkbook.Sheets.Add
    targetWs.Name = "汇总"
    
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "汇总" Then
            ws.UsedRange.Copy targetWs.Cells(targetWs.Rows.Count, 1).End(xlUp).Offset(1, 0)
        End If
    Next ws
    
    MsgBox "合并完成！"
End Sub

示例2：自动发送邮件

Sub 发送邮件()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    With OutlookMail
        .To = "recipient@example.com"
        .Subject = "月度报表"
        .Body = "请查收附件中的月度报表。"
        .Attachments.Add ThisWorkbook.FullName
        .Send
    End With
    
    MsgBox "邮件已发送！"
End Sub

5.2 VBA调试技巧

F8：逐行执行
F9：设置断点
Ctrl+G：打开立即窗口查看变量
On Error Resume Next：错误处理

第六章：高级应用

6.1 与Python结合

使用Excel内置Python（Excel 365）：

=py(
import pandas as pd
import numpy as np

# 读取Excel数据
df = pd.DataFrame(xl("A1:D100"))

# 数据分析
result = df.groupby("产品")["销售额"].sum().sort_values(ascending=False)

# 返回结果
result
)