打开Excel文件并按下ALT + F11打开Visual Basic for Applications（VBA）编辑器。

输入下面的代码

Sub FormatJSONCells()Dim cell As RangeDim jsonString As StringDim json As ObjectDim formattedJSON As String' 循环遍历选定的单元格范围For Each cell In SelectionjsonString = cell.Value' 检查单元格中的内容是否为JSON数据If IsValidJSON(jsonString) Then' 使用VBA内置JSON解析功能将JSON数据解析为对象Set json = JsonConverter.ParseJson(jsonString)' 将JSON数据重新格式化为易于阅读的形式formattedJSON = JsonConverter.ConvertToJson(json, Whitespace:=2)' 将格式化后的JSON数据写回到单元格中cell.Value = formattedJSONEnd IfNext cell
End SubFunction IsValidJSON(ByVal strJSON As String) As BooleanOn Error Resume NextDim json As ObjectSet json = JsonConverter.ParseJson(strJSON)IsValidJSON = (Err.Number = 0)On Error GoTo 0
End Function

进入https://github.com/VBA-tools/VBA-JSON，下载release的最新代码

VBA编辑器，“文件”->“导入”, 导入文件 JsonConverter.bas

点击VBA编辑器的菜单栏上的"工具"。

选择"引用"，然后在弹出的对话框中找到并勾选"Microsoft Scripting Runtime"，以及“Microsoft XML 6.0”。

点击"确定"保存更改。

保存并关闭VBA编辑器。