[{ "ID": "1", "名前": "鈴木", "得点": "91" }, { "ID": "2", "名前": "田中", "得点": "86" }, { "ID": "3", "名前": "山本", "得点": "87" }, { "ID": "4", "名前": "高橋", "得点": "78" }] 実際は「[{“ID”:”1″,”名前”:”鈴木”,”得点”:”91″},{“ID”:”2″,”名前”:”田中”,”得点”:”86″},{“ID”:”3″,”名前”:”山本”,”得点”:”87″},{“ID”:”4″,”名前”:”高橋”,”得点”:”78″}]」のように改行はありません。 Sub 表をJSON形式に() arrs = Cells(1, 1).CurrentRegion '1から行数まで、1から列数まで len_row = UBound(arrs, 1) '行数 len
