EXCELでJSON形式の中の要素数を数える

とりあえず、JSON形式なデータがEXCELに格納されているので
JSONの中に何個要素があるかをカウントするマクロです。

カウントしたいデータのデータ形式

{"key1":"value1","key2":"value2","key3":"value3","key4":"value4"}

まぁ参考にすらならないかもですが、、、
DynamoDBのファイル作るときに役に立つかも

Function operationCheck()
    Dim ts As Worksheet
    Dim i As Long
    Dim j As Long
    Dim fRow As Long
    Dim wStr As String
    Dim wArray() As String
    Dim wVal As String
    Set ts = ThisWorkbook.Worksheets("Sheet1")
    fRow = ts.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    For i = 2 To fRow - 1
        wStr = Replace(ts.Range("B" & i).Value, "{", "")
        wStr = Replace(wStr, "}", "")
        'カンマ区切りの文字を1個ずつ配列に格納
        wArray = Split(wStr, ",")
        For j = 0 To UBound(wArray)
            Select Case j
                Case Is = 0
                    wVal = "0"
                Case Is = 1
                    wVal = "1"
                Case Is = 2
                    wVal = "2"
                Case Is = 3
                    wVal = "3"
                Case Is = 4
                    wVal = "4"
                Case Is = 5
                    wVal = "5"
                Case Else
                    wVal = "ERR"
            End Select
        Next j
        ts.Range("C" & i).Value = wVal
    Next i
    '整形
    ts.Range("A:C").Select
    ts.Range("A:C").EntireColumn.AutoFit

End Function

まぁあまり使うシュチュエーションないですけど
備忘録を兼ねて