我想通了...完整的解决方案是下面包括GPT API调用函数。请注意，电子表格在名为“配置”的选项卡上具有API密钥和温度设置的相应范围。您需要为这两个值创建命名范围，并从OpenAI获取API密钥，以便调用MSXML2.XMLHTTP请求正常工作。

Function GPT(strInPrompt)
  
  Dim request As Object
  Dim text, response, API, api_key, DisplayText, GPTModel As String
  Dim GPTTemp As Double
  Dim startPos As Long
  Dim rng As Range
  Dim httpRequest As Object

  
  'On Error GoTo ErrHandler:
  'API Info
  API = "https://api.openai.com/v1/chat/completions"
  api_key = Trim(Range("API_Key").Value)
  GPTModel = "gpt-3.5-turbo"
  

  If api_key = "" Then
    MsgBox "Error: API cannot be blank! Please go to 'Config' tab and enter a valid OpenAI API key", vbExclamation, "Excel for ChatGPT"
    Exit Function
  End If
    
  'Clean input text and make JSON safe
  text = CleanInput(strInPrompt)
  
  'Create request object
  Set httpRequest = CreateObject("MSXML2.XMLHTTP")

  GPTTemp = Range("GPT_temperature").Value
  
  
  Dim requestBody As String

  requestBody = "{" & _
              """model"": """ & GPTModel & """," & _
              """temperature"": " & GPTTemp & "," & _
              """messages"": [{""content"":""" & text & """,""role"":""user""}]" & _
              "}"

  With httpRequest
     .Open "POST", API, False
     .setRequestHeader "Content-Type", "application/json"
     .setRequestHeader "Authorization", "Bearer " & api_key
     .send (requestBody)
  End With

  
 ' Open and send the HTTP request
  If httpRequest.Status = 200 Then 'Successfully called OpenAI API

   response = httpRequest.responsetext

    'Extract content
    Result = Split(response, """,""")
    For i = LBound(Result) To UBound(Result)
      If InStr(Result(i), "content") > 0 Then
            startPos = i
            Exit For
      End If
    Next i
  
    DisplayText = Mid(Result(startPos), InStr(Result(startPos), ":") + 2, InStr(Result(startPos), """},"))
    DisplayText = Mid(DisplayText, 1, InStr(DisplayText, """},") - 1)
  
    DisplayText = Replace(DisplayText, "\n", vbCrLf)
    Set request = Nothing
    GPT = DisplayText
   Exit Function
  Else 'something went wrong with OpenAI call
    MsgBox "Request failed with status " & httpRequest.Status & vbCrLf & vbCrLf & "Error:" & vbCrLf & httpRequest.responsetext, vbCritical, "OpenAI API Request Failed"
  End If
  
  Exit Function
  
End Function

Function CleanInput(strProcess)
  strProcess = Replace(strProcess, Chr(34), Chr(39))
  strProcess = Replace(strProcess, "/", " ")
  strProcess = Replace(strProcess, "\", " ")
  strProcess = Replace(strProcess, vbCrLf, "\n")
  strProcess = Replace(strProcess, vbLf, "\n")
  strProcess = Replace(strProcess, vbCr, "\n")
  strProcess = Replace(strProcess, vbTab, "\t")
  CleanInput = strProcess
End Function

Function GPTFill(TrainingRange As Range, FillRange As Range) As Variant

'Create compounded prompt from Training Range
strPrompt = "I'll give you a few examples of prompts and completions. "

'Iterate through training range to collect examples into prompt
For Each trainingRow In TrainingRange.Rows
  strPrompt = strPrompt & "User: " & trainingRow.Cells(1, 1).Value & vbCrLf & "System: " & trainingRow.Cells(1, 2).Value & vbCrLf
Next trainingRow

'Concatenate all prompt completions into a single input to see if we can get efficiency gains
strPrompt = strPrompt & vbCrLf & "Repeat for the following rows. Return only the completion portion of the text separated by paragraph returns: " & vbCrLf
For Each fillRow In FillRange.Rows
 strPrompt = strPrompt & fillRow.Cells(1, 1).Value & vbCrLf
Next fillRow

outString = GPT(strPrompt)
'Split into array
GPTOutArray = Split(outString, vbCrLf)

'Populate the cells with return values
 GPTFill = Application.Transpose(GPTOutArray)

End Function