在工作中，我們可能需要用到JSON數據，而常見的處理方式就是使用Excel來進行。但是，有時候我們只需要提取JSON數據中的某個字段，并將該字段的所有值提取出來進行分析，這時候該怎么做呢？下面就為大家介紹使用Excel提取JSON某個字段所有值的方法。

Sub extract_json()
Dim sJson As String
Dim oJson As Object
Dim oChild As Object
Dim i As Long
sJson = "{""name"":""Tom"",""age"":18,""gender"":""male"",""courses"":[""Math"",""English"",""Art""]}"
Set oJson = JsonConverter.ParseJson(sJson)
For Each oChild In oJson("courses")
Range("A" & i + 1).Value = oChild
i = i + 1
Next oChild
End Sub

以上的代碼中，我們引用了一個JSON轉換器庫“JsonConverter”，這個庫可以將JSON轉換為VBA對象進行操作，方便快捷。在實際使用中，我們只需要將需要提取的JSON字符串保存在一個字符串變量中，然后使用JsonConverter.ParseJson將其轉換為VBA對象。接著，我們可以使用For Each循環遍歷該對象，找到我們需要提取的字段，將其放入一個二維數組中，最終輸出到Excel表格中。

通過以上的方法，我們就可以輕松地提取JSON數據中的某個字段，并將該字段的所有值提取出來放入Excel表格，方便我們進行進一步的數據分析和處理。