Excel 是一款強大的數據處理軟件，而 JSON 則是當前非常流行的一種數據交換格式。隨著 JSON 的普及，Excel 也開始支持 JSON 的序列化了。

Sub SaveToJson()
Dim json As Variant
Dim jsonString As String
json = Range("A1:B3").Value
jsonString = JsonConverter.ConvertToJson(json)
Open "C:\temp\data.json" For Output As #1
Print #1, jsonString
Close #1
End Sub

上述代碼中，我們使用第三方庫 JsonConverter 將數據保存為 JSON。首先，我們將要處理的數據存儲在范圍 A1:B3 中，并使用 Value 方法將它們傳遞給變量 json。接下來，我們使用 JsonConverter 的 ConvertToJson 方法將其轉換為 JSON 字符串，并將其存儲在字符串變量 jsonString 中。最后，我們將 jsonString 寫入到文件 C:\temp\data.json 中。

當然，我們也可以使用第三方庫 VBA-JSON 實現同樣的功能。

Sub SaveToJson()
Dim json As Variant
Dim jsonString As String
Set json = CreateObject("Scripting.Dictionary")
json("key1") = "value1"
json("key2") = "value2"
jsonString = JsonConverter.ConvertToJson(json, Whitespace:=3)
Open "C:\temp\data.json" For Output As #1
Print #1, jsonString
Close #1
End Sub

這里我們使用 CreateObject 生成一個 Scripting.Dictionary 對象，并插入了兩個鍵值對。接著，我們使用同樣的方式將其序列化成 JSON。

總的來說，Excel 中的 JSON 序列化使得我們可以方便地將 Excel 中的數據導出成為標準的 JSON 數據格式，方便我們進行更加靈活的數據處理。同時，也能夠將 JSON 格式的數據導入到 Excel 中進行處理。