Excel 是一個電子表格應用程序，功能強大、應用范圍廣泛。在處理數據文件時，Json 數據格式也越來越常見。但是 Json 格式的數據通常商業用戶無法直接導入到 Excel 中進行操作，必須將其轉換為 Excel 能夠識別的格式。本文將介紹使用 Excel 切割 Json 數據并將其轉換為 Excel 格式的方法。

{
"id": 1,
"name": "小明",
"age": 18,
"gender": "M",
"school": {
"name": "清華大學",
"location": "北京"
}
}
{
"id": 2,
"name": "小紅",
"age": 19,
"gender": "F",
"school": {
"name": "北京大學",
"location": "北京"
}
}

Json 數據通常格式化為字典或列表，而 Excel 能夠處理的是表格，需要將 Json 數據按照表格的形式切割。因此我們可以使用 Excel VBA 編程語言編寫一段代碼來實現該功能。

Sub JsonToExcel()
Dim strJson As String
Dim objJSON As Object
Dim intRec As Integer
'獲取 Json 數據
strJson = Range("A1").Value
'解析 Json
Set objJSON = JsonConverter.ParseJson(strJson)
'遍歷 Json 數據
For Each Item In objJSON
intRec = intRec + 1
'輸出表頭
If intRec = 1 Then
Range("A2").Value = "ID"
Range("B2").Value = "Name"
Range("C2").Value = "Age"
Range("D2").Value = "Gender"
Range("E2").Value = "School Name"
Range("F2").Value = "Location"
End If
'輸出數據
Range("A" & intRec + 2).Value = Item("id")
Range("B" & intRec + 2).Value = Item("name")
Range("C" & intRec + 2).Value = Item("age")
Range("D" & intRec + 2).Value = Item("gender")
Range("E" & intRec + 2).Value = Item("school")("name")
Range("F" & intRec + 2).Value = Item("school")("location")
Next
End Sub

運行程序后，我們將得到一個 Excel 表格，其中包含了 Json 數據的所有字段，方便我們進行數據分析和操作。