도쿄사는 외노자

0001 0002 AAA XXX BBB YYY CCC ZZZ 위와 같은 테이블을, 아래와 같은 JSON으로 바꾸어 출력하고자 한다. { "0001" : ["AAA", "BBB", "CCC"], "0002" : ["XXX", "YYY", "ZZZ"] } 코드는 다음과 같다. Sub MakeJson() '테이블이 있는 시트 설정 Dim shtWork As String shtWork = "Work" '시트 활성화 ThisWorkbook.Sheets(shtWork).Activate '변수 정의 Dim fileName, fileFolder, filePath As String Dim isFirstCol As Boolean Dim i, u As Long Dim maxRow, maxCol As Long 'JSON파일 ..