VBA(Gemini Pro)

Sub JSONtoCell()
    Dim objJSON
    Dim strData

    ' JSONファイルを開く
    Open "C:\Sample.json" For Input As #1
    ' JSONデータを読み込む
    strData = Input$(LOF(1), #1)
    Close #1

    ' JSONデータをパースする
    Set objJSON = JsonConverter.ParseJson(strData)

    ' JSONデータの値をセルに格納する
    Range("A1").Value = objJSON("searchTotal")
    Range("A2").Value = objJSON("searchCount")
    Range("A3").Value = objJSON("nextOffset")
    Range("A4").Value = objJSON("useCount")
    Range("A5").Value = objJSON("contractCount")

    ' ループ処理でusrListの内容をセルに格納する
    Dim i As Integer
    Dim j As Integer
    For i = 1 To UBound(objJSON("usrList"))
        For j = 1 To UBound(objJSON("usrList")(i))
            Range(Cells(i + 1, j).Address).Value = objJSON("usrList")(i)(j)
        Next j
    Next i
End Sub