doomtwo222

Sub Json_split_Range()
    Dim i As Integer
    Dim S As String
    Dim arr As Variant
    Dim ARR1 As Variant
    Dim ARR2 As Variant

    ' ¨ú±oÀx¦s®æ A2 ªº­È
    S = Range("A2").Value

    ' ¥ý±N¾ã­Ó JSON ¦r¦ê¤À³Î
    arr = Split(S, "[")
    Cells(3, 1).Value = arr(1)

    ' ±N JSON ¤¤ªº³r¸¹¤À¹j­È¤À³Î
    ARR1 = Split(arr(1), ",")

    ' °j°é¸ÑªR¨C­Ó¤À¹j­È¡A¨Ã¶ñ¤J¬ÛÀ³ªºÀx¦s®æ
    For i = 0 To UBound(ARR1)
        ARR2 = Split(Trim(ARR1(i)), ":")
        ' i °¸¼Æ®É©ñ¦b¥ª°¼Äæ¦ì¡A©_¼Æ®É©ñ¦b¥k°¼Äæ¦ì
        Cells(4 + Int(i / 2), 1 + (i Mod 2)).Value = ARR2(1)
    Next i
End Sub