Excel-JSON數據-將某些元素返回到相鄰的單元格公式/宏

Question

我在行中有很多json數據，需要在Excel中從中提取某些數據，有沒有辦法做到這一點？ 我提供了一個典型單元格的示例，為簡單起見，我將如何從中提取“ Lat”和“ lng”值並將其放置在相鄰的單元格中。 假設json位於D2單元格中，我需要E3中的“ lat”和F3中的“ Lng”：

projectId:'5571511970726f3903000000',
lat:13.737738,
lng:100.566147,
destinations:[{"id":"57bc75550ce0fe28af001609","name":"BrownEyesRestaurant","category_name":"restaurant","category_class_name":"restaurants","lat":13.737875,"lng":100.566806,"travel_time":"lessthanaminutebyfoot","distance_human":"39m","distance_in_meters":39},{"id":"57bc75550ce0fe28af00160a","name":"HanaHana","category_name":"restaurant","category_class_name":"restaurants","lat":13.738215,"lng":100.566701,"travel_time":"1minutebyfoot","distance_human":"48m","distance_in_meters":48},{"id":"57bc75550ce0fe28af001602","name":"7-Eleven","category_name":"convenience_store","category_class_name":"shopping","lat":13.73763,"lng":100.566934,"travel_time":"1minutebyfoot","distance_human":"55m","distance_in_meters":55},{"id":"57bc75550ce0fe28af001636","name":"GoldenShrine","category_name":"pokestop","category_class_name":"pokemon_places","lat":13.737763,"lng":100.567128,"travel_time":"1minutebyfoot","distance_human":"74m","distance_in_meters":74},{"id":"57bc75550ce0fe28af00160d","name":"FatFishSeafoodBistro","category_name":"restaurant","category_class_name":"restaurants","lat":13.737128,"lng":100.567127,"travel_time":"2minutesbyfoot","distance_human":"130m","distance_in_meters":126},{"id":"57bc75550ce0fe28af001635","name":"NARZStoneBalls","category_name":"pokestop","category_class_name":"pokemon_places","lat":13.738174,"lng":100.56538,"travel_time":"2minutesbyfoot","distance_human":"140m","distance_in_meters":142},

screengrab上所需輸出的示例：

Answer 1

如果您不打算提取json，請嘗試以下代碼。

Sub test()
    Dim s As String
    Dim vSplit

    s = Range("d2")
    vSplit = Split(s, ",")
    Range("e2") = Val(Replace(vSplit(1), "lat:", ""))
    Range("f2") = Val(Replace(vSplit(2), "lng:", ""))

End Sub

編輯

Sub test()
    Dim s As String
    Dim vSplit
    Dim vDB, vR()
    Dim i As Long, n As Long
    vDB = Range("d2", Range("d" & Rows.Count).End(xlUp))
    n = UBound(vDB, 1)
    ReDim vR(1 To n, 1 To 2)
    For i = 1 To n
        s = vDB(i, 1)
        vSplit = Split(s, ",")
        vR(i, 1) = Val(Replace(vSplit(1), "lat:", ""))
        vR(i, 2) = Val(Replace(vSplit(2), "lng:", ""))
    Next i
    Range("e2").Resize(n, 2) = vR
End Sub