[{ "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
![ExcelのテーブルをJSON形式に変換するマクロ | You Look Too Cool](https://cdn-ak-scissors.b.st-hatena.com/image/square/3f983552a1f16ab7bb54f1fcab56bdc70ff665fa/height=288;version=1;width=512/https%3A%2F%2Fstabucky.com%2Fwp%2Fwp-content%2Fuploads%2F2018%2F02%2Fexcel_logo.png)