用VBA将Excel中单元格内的英文自动翻译成中文

需要使用翻译API，以下是一个示例代码：

Sub Translate()
    Dim URL As String
    Dim Request As Object
    Dim Response As String
    Dim JSON As Object
    Dim TranslatedText As String
    
    '获取选中单元格的文本
    Dim Text As String
    Text = Selection.Value
    
    '构建翻译API的URL
    URL = "https://api-free.deepl.com/v2/translate?auth_key=YOUR_AUTH_KEY&source_lang=en&target_lang=zh&text=" & Text
    
    '发送HTTP请求
    Set Request = CreateObject("MSXML2.XMLHTTP")
    Request.Open "GET", URL, False
    Request.send
    
    '解析JSON响应
    Set JSON = JsonConverter.ParseJson(Request.responseText)
    TranslatedText = JSON("translations")(1)("text")
    
    '将翻译结果写入选中单元格
    Selection.Value = TranslatedText
End Sub

需要先安装JSON解析器才能运行此代码。另外需要替换YOUR_AUTH_KEY为自己的翻译API认证密钥。