您可以通過單擊“下載”按鈕下載 ChatGPT 的 Excel 插件。在 Microsoft Excel 中，插件稱為加載項。不要感到困惑。MS Excel 中的插件和加載項本質上是相同的。

它適用于 Windows 和 Mac 操作系統(tǒng)

如何安裝插件

當您從互聯(lián)網下載加載項或宏文件時，Microsoft 會阻止它們運行并顯示該文件的來源不受信任。您需要按照以下步驟才能使其正常工作。

1. 轉到下載的加載項文件所在的文件夾。

2. 右鍵單擊該文件并從菜單中選擇“屬性” 。

3. 在“常規(guī)”選項卡底部，選中“安全”選項下的“取消阻止”復選框，然后單擊“確定”。

請參閱以下步驟在 MS Excel 中安裝 ChatGPT 加載項。

1. 打開 Excel 并單擊File功能區(qū)中的選項卡。

2. 單擊Options，然后Add-ins從左側菜單中進行選擇。

3. 在Manage屏幕底部的下拉菜單中，選擇Excel Add-ins并單擊Go按鈕。

4. 單擊該Browse按鈕并找到您下載的加載項文件。

5. 選擇加載項文件并單擊按鈕OK。

6. Add-Ins您應該在對話框中看到加載項文件的名稱。選中加載項名稱旁邊的框以將其激活。

7. 完成上述步驟后，ChatGPTExcel 工作簿中應會顯示一個名為 的新選項卡。

如何使用 ChatGPT 插件

請按照以下步驟使用適用于 MS Excel 的 ChatGPT 加載項。

1. 打開新的或現(xiàn)有的 MS Excel 工作簿

2. 在任意單元格中輸入您想要詢問 ChatGPT 的文本

3. 點擊ChatGPT選項卡 >?AI 助手

4. 輸入您的 API 密鑰并選擇模型類型

5. 選擇您在步驟 2 中輸入文本的單元格

6. 將生成輸出并將在幾秒鐘內出現(xiàn)。

7. 當您希望 ChatGPT 在多個單元上運行時，可以使用該AIAssistant函數。請參閱下一節(jié)中的詳細信息。

ChatGPT Excel 插件：函數

Excel插件的主要好處是它不像宏工作簿那樣依賴于一個文件，并且可以在不同的工作簿和用戶之間輕松共享。該插件有五個函數，您可以使用它們從 ChatGPT 獲取響應

• AIAssistant(text, [word_count])使用 ChatGPT 生成并提供搜索查詢的輸出。
  -?text ：要搜索的文本
  -?word_count ：可選。指定 ChatGPT 生成的輸出的字數

• AIAssistant_Chat(text, [reset])像 ChatGPT 網站這樣的 Converse 會記住之前的對話。
  -文本：要搜索的文本
  -重置：可選。開始/重置聊天會話。

• AIAssistant_FillData(rng_existingdata, rng_fill)通過在現(xiàn)有數據上訓練 ChatGPT 來填充不完整的數據。
  -?rng_existingdata ：訓練數據的范圍
  -?rng_fill ：指定需要填充的單元格。

• AIAssistant_Extractor(prompt, keyword)從 ChatGPT 中提取關鍵數據。關鍵數據可以是姓名、地點、組織詳細信息等。
  -提示：要從中提取關鍵數據的文本
  -關鍵字：關鍵字可以是名稱、地點、組織等。

• AIAssistant_Explain(cell_formula, [detail])幫助您解釋您不理解且需要支持的Excel公式。
  -?cell_formula ：包含您希望 ChatGPT 向您解釋的 Excel 公式的單元格。
  -詳細信息：可選。默認值為 TRUE。如果您想要不太詳細的回復，請設置 FALSE。

要更快地鍵入功能，請先鍵入=ai，然后使用向上或向下箭頭鍵選擇所需的功能，最后按 鍵Tab。

讓 ChatGPT 記住之前的對話

默認情況下，當我們向 OpenAI 發(fā)送 API 請求時，它不會回憶起之前的對話。它將每個 API 請求視為一次新的聊天。這意味著當它回答您當前的問題時，它不會記住您之前的問題。

為了提高ChatGPT保留先前對話的能力，我們可以使用該功能AIAssistant_Chat(text, [reset])。設置第二個參數reset來TRUE啟動/重置聊天。

注意：這兩個函數AIAssistant()都會AIAssistant_Chat()為您的搜索查詢生成輸出。然而AIAssistant_Chat()，也允許 ChatGPT 記住您之前的對話，這會增加令牌的使用并增加成本。reset當TRUE您不需要 ChatGPT 來回憶之前的對話時，建議設置該函數的第二個參數。

可能的用途AIAssistant_FillData( )

AIAssistant_FillData( )可用于多種目的。請參閱下面的一些示例。

1. 情緒分析您可以在客戶反饋數據上標記積極/消極/中性情緒。您只需要在函數的第一個參數中提供一些標簽。

2. 行業(yè)/部門分類您有公司名稱并希望了解其行業(yè)/部門。

3. 文本模式提取您擁有包含字符和數值的文本數據。通過使用此函數，您可以從文本中提取數值。

文檔：要詳細了解此插件以及上述功能，您可以訪問此鏈接 -?Excel插件文檔

如果您對上述加載項感到滿意，則無需跳轉到以下在 Excel 中集成 ChatGPT 的其他方法。以下方法只是使用加載項的替代方法，但它們的穩(wěn)健性較差，并且包含手動步驟。

方法二：ChatGPT 的 Excel 宏

下面的 VBA 代碼使用 API 從 ChatGPT 獲取響應并將其放入 Excel 中。它還清理來自 ChatGPT 的響應并將其置于結構化格式中，以便保持格式。這使用戶可以輕松編輯響應，并輕松在任何其他文檔或電子表格中重復使用。

該宏僅適用于 Windows 操作系統(tǒng)。如果您想將 ChatGPT 集成到 Mac 操作系統(tǒng)上的 MS Excel，請使用專為 Mac 設計的插件。

Sub?chatGPT()
??
??Dim?request?As?Object
??Dim?response?As?String
??Dim?text,?API,?api_key,?DisplayText,?error_result?As?String
??Dim?status_code?As?Long
??Dim?cellr?As?Range
??Dim?prompt,?rng?As?Range
??
??'API?Info
??API?=?"https://api.openai.com/v1/chat/completions"api_key?=?"sk-xxxxxxxxxxxxxxxxxxxxxxxxxx"

??If?api_key?=?""?Then
????????MsgBox?"Error:?API?key?is?blank!"
????????Exit?Sub
????End?If
????
??Set?prompt?=?Range("B3")
??Set?cellr?=?prompt.Offset(1,?0)
??Set?rng?=?Range(prompt.Offset(1,?0),?prompt.Offset(2000,?0))
??rng.Clear
????
??'Input?Text
????If?prompt.Value?=?""?Then
????????MsgBox?"Error:?Cell?"?&?prompt.Address(RowAbsolute:=False,?ColumnAbsolute:=False)?&?"?is?blank!"
????????Exit?Sub
????End?If

??text?=?Replace(prompt.Value,?Chr(34),?Chr(39))
??text?=?Replace(text,?vbLf,?"?")

??'Create?an?HTTP?request?object
??Set?request?=?CreateObject("MSXML2.XMLHTTP")
??With?request
?????.Open?"POST",?API,?False
?????.setRequestHeader?"Content-Type",?"application/json"
?????.setRequestHeader?"Authorization",?"Bearer?"?&?api_key
?????.send?"{""model"":?""gpt-3.5-turbo"",??""messages"":?[{""content"":"""?&?text?&?""",""role"":""user""}],"?_
??????????&?"""temperature"":?1,?""top_p"":?0.7,?""max_tokens"":?2048}"
???status_code?=?.Status
???response?=?.responseText
??End?With

??'Extract?content
??If?status_code?=?200?Then
????DisplayText?=?ExtractContent(response)
??Else
????DisplayText?=?ExtractError(response)
??End?If
????
??'Put?response
??cellr.Value?=?DisplayText
??
??'Split?to?multiple?rows
??Call?SplitTextToMultipleRows(cellr)
??rng.WrapText?=?True
????
??'Clean?up?the?object
??Set?request?=?Nothing

End?Sub

Sub?SplitTextToMultipleRows(cell?As?Range)
????Dim?splitArr()?As?String
????Dim?delimiter?As?String
????delimiter?=?"
"
????
????splitArr?=?Split(cell.Value,?delimiter)
????For?i?=?LBound(splitArr)?To?UBound(splitArr)
????????x?=?splitArr(i)
????????If?Left(Trim(x),?1)?=?"="?Then
????????????x?=?"'"?&?x
????????End?If
????????cell.Offset(i,?0).Value?=?Replace(x,?"""",?Chr(34))
????Next?i
????
End?Sub

Function?ExtractContent(jsonString?As?String)?As?String
????Dim?startPos?As?Long
????Dim?endPos?As?Long
????Dim?Content?As?String
????
????startPos?=?InStr(jsonString,?"""content"":?""")?+?Len("""content"":?""")
????endPos?=?InStr(startPos,?jsonString,?"},")?-?2
????Content?=?Mid(jsonString,?startPos,?endPos?-?startPos)
????Content?=?Trim(Replace(Content,?"""",?Chr(34)))
????
????'Fix?for?excel?forumulas?as?response
????If?Left(Trim(Content),?1)?=?"="?Then
??????Content?=?"'"?&?Content
????End?If
????
????Content?=?Replace(Content,?vbCrLf,?"")
????Content?=?Replace(Content,?vbLf,?"")
????Content?=?Replace(Content,?vbCr,?"")
????
????If?Right(Content,?1)?=?""""?Then
??????Content?=?Left(Content,?Len(Content)?-?1)
????End?If
????
????ExtractContent?=?Content

End?Function

Function?ExtractError(jsonString?As?String)?As?String
????Dim?startPos?As?Long
????Dim?endPos?As?Long
????????startPos?=?InStr(jsonString,?"""message"":?""")?+?Len("""message"":?""")
????????endPos?=?InStr(startPos,?jsonString,?"""")
????????If?startPos?>?Len("""message"":?""")?And?endPos?>?startPos?Then
????????????ExtractError?=?Mid(jsonString,?startPos,?endPos?-?startPos)
????????Else
????????????startPos?=?InStr(jsonString,?"""code"":?""")?+?Len("""code"":?""")
????????????endPos?=?InStr(startPos,?jsonString,?"""")
????????????If?startPos?>?Len("""code"":?""")?And?endPos?>?startPos?Then
??????????????ExtractError?=?Mid(jsonString,?startPos,?endPos?-?startPos)
????????????Else
??????????????ExtractError?=?"Unknown?error"
????????????End?If
????????End?If
End?Function

輸入 API 密鑰并提示

1. 您需要在上面的代碼中的變量api_key中輸入您的 API 密鑰。這與我們在上一步中獲得的密鑰相同。

2. 在單元格 B3中輸入您的問題（提示），然后按照以下步驟操作。

如何使用VBA代碼

1. 按Alt+F11打開 VBA 編輯器。

2. 單擊“插入”>“模塊”以創(chuàng)建新模塊。

3. 在模塊中，復制并粘貼上述 VBA 代碼。

4. 輸入代碼后，關閉 VBA 編輯器。

5. 按Alt+F8或轉到“開發(fā)人員”選項卡 >“宏”并選擇宏chatGPT并單擊“運行”按鈕來運行宏。

演示輸出

方法三：ChatGPT 的 Excel 函數

您還可以將 ChatGPT 作為 Excel 函數運行。將其作為函數運行的好處是您可以將其粘貼到多個單元格上。請參閱下面的動畫圖像如何使用該功能。

函數的語法是

AIAssistant(text, [word_count])

文本：提示。你想問的問題。
字數：可選。將生成的響應中的最大字數。

在下圖所示的示例中，我們正在提取不同國家的首都。由于 ChatGPT 響應的字數通常多于所需的字數，因此我們可以限制函數第二個參數中的最大字數。

Function?AIAssistant(text?As?String,?Optional?word_count?As?Long?=?0)?As?String
??
??Dim?request?As?Object
??Dim?response?As?String
??Dim?API,?api_key,?DisplayText,?error_result?As?String
??Dim?startPos,?endPos,?status_code?As?Long
??Dim?rng?As?Range
??
??'API?Info
??API?=?"https://api.openai.com/v1/chat/completions"api_key?=?"sk-xxxxxxxxxxxxxxxxxxxxxxxx"
??
??'Input?Text
???If?word_count?>?0?Then
????text?=?text?&?".?Provide?response?in?maximum?"?&?word_count?&?"?words"
???End?If
??
??text?=?Replace(text,?Chr(34),?Chr(39))
??text?=?Replace(text,?vbLf,?"?")
??????????
??'Send?request?to?API
??Set?request?=?CreateObject("MSXML2.XMLHTTP")
??With?request
?????.Open?"POST",?API,?False
?????.setRequestHeader?"Content-Type",?"application/json"
?????.setRequestHeader?"Authorization",?"Bearer?"?&?api_key
?????.send?"{""model"":?""gpt-3.5-turbo"",??""messages"":?[{""content"":"""?&?text?&?""",""role"":""user""}],"?_
??????????&?"""temperature"":?0.7,?""top_p"":?1,?""max_tokens"":?2048}"
???status_code?=?.Status
???response?=?.responseText
??End?With
??
??'Parse?response?from?API
??If?status_code?=?200?Then
????DisplayText?=?ExtractContent(response)
??Else
????DisplayText?=?ExtractError(response)
??End?If
??
????If?word_count?>?0?And?Right(DisplayText,?1)?=?"."?Then
????????DisplayText?=?Left(DisplayText,?Len(DisplayText)?-?1)
????Else
????????DisplayText?=?DisplayText
????End?If
??
??'Return?result
??AIAssistant?=?DisplayText

End?Function

Function?ExtractContent(jsonString?As?String)?As?String
????Dim?startPos?As?Long
????Dim?endPos?As?Long
????Dim?Content?As?String
????
????startPos?=?InStr(jsonString,?"""content"":?""")?+?Len("""content"":?""")
????endPos?=?InStr(startPos,?jsonString,?"},")?-?2
????Content?=?Mid(jsonString,?startPos,?endPos?-?startPos)
????Content?=?Trim(Replace(Content,?"""",?Chr(34)))
????
????'Fix?for?excel?forumulas?as?response
????If?Left(Trim(Content),?1)?=?"="?Then
??????Content?=?"'"?&?Content
????End?If
????
????Content?=?Replace(Content,?vbCrLf,?"")
????Content?=?Replace(Content,?vbLf,?"")
????Content?=?Replace(Content,?vbCr,?"")
????Content?=?Replace(Content,?"
",?vbCrLf)
?????
????If?Right(Content,?1)?=?""""?Then
??????Content?=?Left(Content,?Len(Content)?-?1)
????End?If
????
????ExtractContent?=?Content

End?Function

Function?ExtractError(jsonString?As?String)?As?String
????Dim?startPos?As?Long
????Dim?endPos?As?Long
????????startPos?=?InStr(jsonString,?"""message"":?""")?+?Len("""message"":?""")
????????endPos?=?InStr(startPos,?jsonString,?"""")
????????If?startPos?>?Len("""message"":?""")?And?endPos?>?startPos?Then
????????????ExtractError?=?Mid(jsonString,?startPos,?endPos?-?startPos)
????????Else
????????????startPos?=?InStr(jsonString,?"""code"":?""")?+?Len("""code"":?""")
????????????endPos?=?InStr(startPos,?jsonString,?"""")
????????????If?startPos?>?Len("""code"":?""")?And?endPos?>?startPos?Then
??????????????ExtractError?=?Mid(jsonString,?startPos,?endPos?-?startPos)
????????????Else
??????????????ExtractError?=?"Unknown?error"
????????????End?If
????????End?If
End?Function

確保輸入上面以粗體突出顯示的 API 密鑰。

請按照上一節(jié)“如何使用 VBA 代碼”中的步驟 1 至 4進行操作。完成這 4 個步驟后，=AIAssistant(B3)在任意單元格中鍵入內容。這里 B3 指的是放置提示（問題）的單元格。

如何使用 GPT-4

要訪問 GPT-4，您可以在上面的 VBA 代碼中替換gpt-3.5-turbo為。gpt-4OpenAI 團隊定期更新他們的模型，他們有各種版本，但他們確保用戶獲得最新的模型版本gpt-4 or gpt-3.5-turbo。

如何使用ChatGPT編寫Excel公式

您還可以使用上述插件或宏并要求 ChatGPT 像 Excel 導師一樣工作。在 Excel 中，您可能有興趣了解 Excel 函數、宏或其他與數據分析相關的功能。想要使用 Excel 但不太了解它的人可能會發(fā)現(xiàn)它確實很有幫助。它不僅節(jié)省您的時間，而且使數據分析變得更容易。請參閱下面的示例，其中我們向 ChatGPT 詢問了與 Excel 相關的簡單問題。

Excel 公式：如果單元格 F5 中的值小于 70，則“通過”，否則“失敗”

ChatGPT 提示輸入 Excel 公式

以下是一些示例，您可以使用這些示例要求 ChatGPT 為您編寫 Excel 公式。

1. 編寫一個 Excel 公式來計算 B2:B10 范圍內包含值“Pass”的單元格數量。

   =COUNTIF(B2:B10,?"Pass")

2. 我正在做一個項目。我被要求分析股票價格。如何創(chuàng)建 Excel 公式來計算連續(xù)兩天收盤價之間的百分比變化（假設單元格 B1 和 B2 中的價格）？

   =((B2-B1)/B1)*100

3. 我有一個數據集，其中 A 列中包含銷售數字，B 列中包含相應日期。如何使用 Excel 公式計算 2022 年 10 月的總銷售額？

   =SUMIFS(A:A,?B:B,">="&DATE(2022,10,1),?B:B,"<="&DATE(2022,10,31))

4. 在我的銷售數據中，我想計算“產品 A”的總銷售額。銷售價值在 A1:A10 范圍內。B2:B20 范圍內的產品名稱。我該如何為此編寫 Excel 公式？

   =SUMIF(B2:B20,?"Product?A",?A1:A10)

5. 我正在嘗試管理我的預算，并想知道費用占我的總預算的百分比。你能幫我為此創(chuàng)建一個 Excel 公式嗎？

   =TotalExpense/TotalBudget

6. 我有不同月份的收入數據。如何使用Excel公式計算每個月的增長率？

   =((CurrentMonthRevenue-PreviousMonthRevenue)/PreviousMonthRevenue)*100

7. 我正在處理員工數據，需要查找“銷售”部門員工的平均工資。如何為 B2:B20 范圍內的給定薪資和 A2:A20 范圍內的部門制定 Excel 公式？

   =AVERAGEIFS(B2:B20,?A2:A20,?"Sales")

8. 在我的銷售報告中，我需要根據每個銷售人員的表現(xiàn)來計算他們的傭金。如何創(chuàng)建考慮不同銷售級別的不同傭金率的 Excel 公式？

   =IF(SalesLevel="Level?1",?CommissionRate1,?IF(SalesLevel="Level?2",?CommissionRate2,?IF(SalesLevel="Level?3",?CommissionRate3,?CommissionRateDefault)))

9. 我有一張 Excel 表格，其中以百分比形式顯示學生成績。我需要根據這些百分比來分配字母等級。你能告訴我如何為此創(chuàng)建一個 Excel 公式嗎？

   =IF(Percentage>=90,?"A",?IF(Percentage>=80,?"B",?IF(Percentage>=70,?"C",?IF(Percentage>=60,?"D",?"F"))))

如何使用ChatGPT編寫VBA代碼

它也適用于宏等高級 Excel 概念。它可以為您編寫VBA代碼。使用 ChatGPT 編寫 VBA 代碼從未如此簡單。

sheet1用于應用過濾器并將過濾后的行粘貼到的VBA 代碼sheet2

ChatGPT 提示編寫 VBA 代碼

以下是一些示例，您可以使用它們來請求 ChatGPT 幫助您編寫 VBA 代碼。

1. 如何在 VBA 中循環(huán)訪問單元格 A1 到 A10？

2. 如何在 VBA 中創(chuàng)建用戶定義函數來計算階乘？

3. 如何在 VBA 中創(chuàng)建消息框？

4. 如何在VBA中對特定代碼塊實現(xiàn)錯誤處理？

5. 將單元格 A1 到 A10 從一個工作表復制到另一個工作表的 VBA 代碼？

6. 如何使用 VBA 設置 Excel 中單元格 B2 至 B5 的格式以應用粗體字體和特定背景顏色？

7. 如何在 VBA 中添加或減去特定日期的天數？

8. 如何提示用戶輸入并將值存儲在 VBA 中的變量中？

如何微調 ChatGPT 響應

temperature您可以在 VBA 代碼中找到參數。它介于 0 和 2 之間。較高的值（例如 1.2）將生成更加隨機的輸出，而較低的值（例如 0.2）將更加集中。

如何調試錯誤

如果您收到此錯誤 -The model: gpt-4 does not exist這意味著您無權訪問 GPT-4 API。您需要加入候補名單。您是否訂閱ChatGPT Plus并不重要。訂閱 ChatGPT Plus 不會自動授予對 GPT-4 API 的訪問權限。

如果您收到此錯誤，您需要在這行代碼之前Invalid procedure call or argument添加此錯誤以進行調試。如果消息框返回的值不是，則表明您的請求未成功發(fā)送。請求成功必須為200。請參閱下面可能出現(xiàn)的錯誤。MsgBox .Statusresponse = .responsetext200

1. 401錯誤代碼意味著您的 API 密鑰不正確、已過期或者您無權訪問特定版本的 ChatGPT 模型。

2. 400錯誤代碼意味著您的問題（在單元格 B3 中）包含一些無效字符，可能是換行符（多行中的字符串）。要修復換行符，請text = Replace(text, vbLf, " ")在前面添加此行Set request = CreateObject("MSXML2.XMLHTTP")

3. 404錯誤代碼可能是指輸入型號名稱時出現(xiàn)拼寫錯誤，以防您輸入 gpt-3.5-turbo 和 gpt-4 以外的其他內容

4. 429錯誤代碼表示您超出了當前配額，請檢查您的計劃和賬單詳細信息。

如果您遇到任何與 VBA 引用相關的問題，請嘗試添加Microsoft XML v 3.0。我正在使用 Office 2019，其中上述代碼無需它即可工作。我使用的參考如下所示。可以通過打開 VBA 編輯器然后添加引用Tools > References。

如何處理非英文字母

有時，來自 ChatGPT 的響應中的非英文字母無法正確顯示。此問題與 UTF-8 編碼有關。要解決此問題，您可以使用CleanMsg(ChatGPT_response)函數。請參考下面的例子。

=CleanMsg(AIAssistant("Translate?from?English?to?Norwegian:?I?like?eating?popcorn")
("從英語翻譯成挪威語：我喜歡吃爆米花")