DeepSeek 批量 中译英 支持纯数字翻译 速度优化

Sub TranslateSelectedToEnglishByDeepSeek()
'|||Name:选中区域翻译为英文|Description:选中单元格纯数字本地转英文单词，其余文本打包成JSON数组批量调用DeepSeek翻译后回写|Vision:1.2.1|||

    On Error GoTo ErrorHandler

    ' ========== 常量 ==========
    Const API_URL As String = "https://api.deepseek.com/chat/completions"
    Const MODEL_NAME As String = "deepseek-chat"
    Const BATCH_SIZE As Long = 30          ' 每批最多打包多少个文本
    Const MAX_TOKENS As Long = 4096