ChatGPT for Excel：如何用AI自动化你的数据处理工作流

1次阅读

没有评论

共计 2183 个字符，预计需要花费 6 分钟才能阅读完成。

Excel 是数据处理和分析的利器，但手动操作却存在诸多痛点。大多数人每天要花费大量时间在重复性工作上，比如数据清洗、格式转换和复杂公式编写。这种工作不仅枯燥，还容易出错。一个小错误可能导致整个分析结果的偏差，甚至需要从头再来。

低效性：手动处理大量数据时，往往需要逐行检查、修改，耗时耗力。
错误率高：人工操作难免出错，特别是在处理复杂公式或数据清洗时。
维护成本高：随着数据量增长，手动操作的维护成本呈指数级上升。

在自动化 Excel 数据处理时，常见的工具有 Power Query、Python 脚本等。然而，ChatGPT 凭借其强大的自然语言处理能力，能够理解用户的意图并生成相应的代码或公式，大大降低了使用门槛。

Power Query：适合结构化数据处理，但学习曲线较陡，且灵活性有限。
Python 脚本：功能强大，但需要编程基础，不适合非技术用户。
ChatGPT：通过自然语言交互即可生成代码或公式，无需深入学习语法，适合快速解决问题。

首先，你需要在 OpenAI 官网获取 API 密钥。将密钥保存在 Excel 的某个单元格中，或者直接硬编码在 VBA 脚本中（不推荐生产环境使用）。

通过 VBA 调用 ChatGPT API，可以实现动态生成公式或清洗数据。以下是一个简单的 HTTP 请求示例：

Function CallChatGPT(prompt As String) As String
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP")

    Dim url As String
    url = "https://api.openai.com/v1/chat/completions"

    Dim apiKey As String
    apiKey = "你的 API 密钥"

    Dim requestBody As String
    requestBody = "{" & Chr(34) & "model" & Chr(34) & ":" & Chr(34) & "gpt-3.5-turbo" & Chr(34) & "," & Chr(34) & "messages" & Chr(34) & ": [{" & Chr(34) & "role" & Chr(34) & ":" & Chr(34) & "user" & Chr(34) & "," & Chr(34) & "content" & Chr(34) & ":" & Chr(34) & prompt & Chr(34) & "}]}"

    http.Open "POST", url, False
    http.setRequestHeader "Content-Type", "application/json"
    http.setRequestHeader "Authorization", "Bearer" & apiKey
    http.send requestBody

    CallChatGPT = http.responseText
End Function

API 返回的是 JSON 格式的数据，需要通过 VBA 解析出所需内容。可以使用 VBA-JSON 库来简化解析过程。

以下是一个完整的数据清洗示例，假设我们需要将一列日期从“MM/DD/YYYY”格式转换为“YYYY-MM-DD”格式：

Sub CleanDateColumn()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    Dim i As Long
    For i = 2 To lastRow
        Dim originalDate As String
        originalDate = ws.Cells(i, 1).Value

        Dim prompt As String
        prompt = "Convert the date'" & originalDate & "'from MM/DD/YYYY to YYYY-MM-DD format."

        Dim response As String
        response = CallChatGPT(prompt)

        '假设 response 为{"choices":[{"message":{"content":"2023-10-15"}}]}
        Dim convertedDate As String
        convertedDate = Mid(response, InStr(response, "content":") + 10, 10)

        ws.Cells(i, 2).Value = convertedDate
    Next i
End Sub