Excel是一款廣泛應用于數據處理和數據可視化的工具，而JSON是一種輕量級的數據交換格式，現在越來越受到開發人員的青睞。那么有沒有一種方法可以將Excel表格快速轉化為JSON格式呢？下面我們介紹一種使用VBA代碼的方法。

Function GetRangeJSON(rng As Range) As String
Dim jsonBuilder As Object
Set jsonBuilder = CreateObject("Scripting.Dictionary")
For Each cell In rng
Select Case cell.Value
Case Is = ""
'do nothing
Case Is = Abs(cell.Value)
jsonBuilder.Add CStr(cell.Address), CStr(cell.Value)
Case Else
jsonBuilder.Add CStr(cell.Address), CStr(cell.Value)
End Select
Next
Dim json As String
json = ""
Dim key As Variant
For Each key In jsonBuilder.Keys()
If json<>"" Then json = json & ","
Dim value As Variant
value = jsonBuilder(key)
json = json & """" & key & """" & ":"
json = json & """" & value & """"
Next
GetRangeJSON = "{" & json & "}"
End Function

以上代碼中定義了一個名為"GetRangeJSON"的函數。這個函數需要傳入一個范圍參數"rng"，將會遍歷這個范圍中的每一個單元格，并根據單元格的值生成JSON字符串。

在函數中，首先創建了一個名為"jsonBuilder"的字典對象。遍歷所有單元格，對于其中的每個值，將其轉換為字符串，并添加到jsonBuilder中。

接著，遍歷jsonBuilder的所有鍵，將鍵值對轉換為JSON格式的字符串。最后將所有鍵值對組合成一個JSON對象，并返回。

使用這個函數非常簡單，只需要將一個范圍作為參數傳入即可。例如，假設我們有一個表格數據如下：

A | B |
|---|---|
| 1 | a |
| 2 | b

我們可以使用以下代碼將其轉換為JSON格式：

Sub TestGetRangeJSON()
Dim rng As Range
Set rng = Range("A1:B2")
Dim json As String
json = GetRangeJSON(rng)
Debug.Print json
End Sub

運行以上代碼后，我們可以在控制臺中看到輸出的JSON字符串：

{"$A$1":"1","$B$1":"a","$A$2":"2","$B$2":"b"}

以上介紹的方法是使用VBA代碼將Excel表格轉換為JSON格式的一個簡單實現。希望讀者們可以通過這個方法更加高效地利用Excel處理和轉化數據。