如何实现整个Excel工作表批量翻译 无需逐格操作及第三方服务

所有方案全程本地运行，无数据外发风险，支持大批量数据处理，不需要逐单元格操作。

方案1：零代码操作（最适合新手，5步完成） #

提前做1个准备：打开Excel的「文件-选项-语言」，下载好你需要的源语言、目标语言对应的离线翻译包，下载完成后直接断网操作，彻底杜绝数据传输。
操作步骤：

• 打开需要翻译的Excel文件，先右键点文件标签选「移动或复制」，勾选「建立副本」备份原文件，避免操作失误丢失数据
• 点工作表左上角行号和列标交叉的空白三角，一键选中整个工作表所有单元格
• 点顶部菜单栏的「审阅」选项卡，找到「翻译」按钮点击，右侧会弹出翻译设置面板
• 在面板里选好对应的源语言、目标语言，确认勾选「跳过公式单元格」「跳过空单元格」选项（避免破坏原有表格公式）
• 点面板里的「全部插入」，等待系统自动跑完所有选中单元格的翻译即可，十万行级数据一般1-3分钟就能处理完。

方案2：一键宏方案（适合需要反复处理大量表格的场景） #

如果经常要做翻译操作，用现成的VBA宏可以实现点一次按钮就完成整表翻译，不用每次重复点菜单：

• 打开要处理的Excel文件，按快捷键Alt+F11直接调出VBA编辑窗口
• 在左侧工程栏右键点击当前工作表名称，选「插入-模块」，把下面的现成代码粘贴到弹出的空白编辑区：

Sub 本地离线整表翻译()
    ' 按需修改下面两个参数即可：en=英文，zh-CN=简体中文，ja=日文，ko=韩文
    Const sourceLang As String = "en"
    Const targetLang As String = "zh-CN"
    Dim cell As Range, transTool As Object
    Set transTool = Application.Translation
    ' 仅处理有实际内容的单元格，自动跳过公式、空单元格
    For Each cell In ActiveSheet.UsedRange
        If Not cell.HasFormula And Trim(cell.Value) <> "" Then
            cell.Value = transTool.Translate(cell.Value, sourceLang, targetLang)
        End If
    Next
    MsgBox "翻译完成！"
End Sub

• 粘贴完成后直接按F5就能自动运行，跑完会弹出完成提示。后续要再用直接按快捷键调出宏运行就行，不用重复粘贴代码。

注意事项 #

• 运行宏如果弹出安全提示，直接选「启用此内容」即可，代码仅在本地调用Office自带翻译组件，无任何外部联网逻辑
• 务必先备份原文件再操作，避免意外修改原始数据
• 只要提前安装好离线语言包，全程断网也能正常运行，敏感数据不会流出本地设备

内容的提问来源于stack exchange，提问作者Kat