如何格式化美化Excel单元格内的JSON文本？

方法1：VBA脚本本地处理 #

这是无需依赖外部工具的直接方案，适合批量处理任意单元格：

• 打开目标Excel文件，按Alt + F11打开VBA编辑器
• 右键点击左侧工作簿名称 → 插入 → 模块，将以下代码粘贴到模块中：

Function FormatJSON(jsonText As String) As String
    Dim jsonObject As Object
    Set jsonObject = CreateObject("Scripting.Dictionary")
    
    On Error Resume Next
    Set jsonObject = JsonConverter.ParseJson(jsonText)
    On Error GoTo 0
    
    If Not jsonObject Is Nothing Then
        FormatJSON = JsonConverter.ConvertToJson(jsonObject, Whitespace:=2)
    Else
        FormatJSON = "无效的JSON格式"
    End If
End Function

• 提前准备JsonConverter.bas文件（可自行下载后本地保存），在VBA编辑器中点击「文件」→「导入文件」，选择该文件完成导入
• 点击「工具」→「引用」，勾选Microsoft Scripting Runtime启用依赖库
• 返回Excel界面，在空白单元格输入公式=FormatJSON(目标单元格地址)，比如格式化A1内容就输入=FormatJSON(A1)，下拉填充即可批量处理

方法2：Power Query批量解析格式化 #

适合整列JSON数据的批量处理：

• 选中包含JSON文本的列，点击「数据」选项卡 →「从表格/区域」，将数据导入Power Query编辑器
• 选中目标列，点击「转换」选项卡 →「解析」→「JSON」，将文本解析为结构化数据
• 再次点击「转换」→「格式」→「JSON」→「格式化JSON」
• 点击「关闭并上载」，格式化后的JSON会输出到新工作表

方法3：本地Excel插件辅助 #

如果不熟悉代码操作，可使用带JSON处理功能的本地Excel插件（如Kutools for Excel）：

• 安装插件后，选中需要格式化的单元格
• 在插件菜单中找到「文本处理」类功能，直接选择「JSON格式化」即可完成操作

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