Excel 是一款非常流行的電子表格軟件。它可以方便地對數據進行計算、統計和分析。除此之外，Excel 還有一個非常強大的功能 - 可以生成 JSON 數據。

生成 JSON 數據的方法有兩種：

1. 手動編寫 VBA 代碼

Sub create_json()
 '獲取選中區域的行數和列數
 Dim row_count As Integer
 Dim column_count As Integer
 row_count = Selection.Rows.Count
 column_count = Selection.Columns.Count
'循環遍歷整個區域，構造 JSON 數據
 Dim json As String
 json = "["
 For i = 1 To row_count
json = json & "{"
For j = 1 To column_count
cell_value = Selection.Cells(i, j).Value
json = json & Chr(34) & Selection.Cells(1, j).Value & Chr(34) & ": " & Chr(34) & cell_value & Chr(34)
If j< column_count Then
json = json & ","
End If
Next j
json = json & "}"
If i< row_count Then
json = json & ","
End If
 Next i
 json = json & "]"
'將 JSON 數據輸出到新的工作表
 Sheets.Add(After:=Sheets(Sheets.Count)).Name = "JSON Data"
 Range("A1").Value = "JSON Data"
 Range("A2").Value = json
 Range("A2").Select
End Sub

2. 使用插件工具進行生成

現在，有許多 Excel 插件可以直接將數據轉換為 JSON 格式。例如，可以使用 Power Query 或者 Kutools for Excel 插件來實現這一功能。這些插件具有可視化界面，非常方便易用，省去了手寫代碼的繁瑣。

綜上所述，Excel 生成 JSON 數據的方法多種多樣，根據需求選擇相應的方法即可。