（ＥＸＣＥＬ）手抜きですが簡単な連想配列テストデータ作成プログラム（ＶＢＡ）

JavaScriptのプログラム開発を進めているのですが、複数の種類で大量の連想配列のテストデータが必要になったため、EXCELを使って簡単な連想配列のテストデータ生成プログラムを作ってみました。

いそいで作ったので、大分手抜きの部分があります。参考ぐらいに見てください（汗）（動作保証はできませんので自己判断でご利用をお願いします）

1行目には、keyを項目名として記載します。
2行目以降は、データとなります。配列となります。
マクロを実行させると、データ最終行の5行下のA列にテキストとして出力されます
その内容をコピーして使っていただければ良いかと思います。
（注意点）valueが数値の場合であっても、”（ダブルクオーテーション）で囲ってしまいます。正規表現か何かで変換してください。
あと、セルごとコピーすると、全体の前後に”（ダブルクオーテーション）がつきます。こちらは、EXCELの仕様ですので、後処理するかセル上でF2→CTRL+A→CRTL+Cしてからコピーしてください。

Sub test()
    Dim temp
    Dim result
    
    result = "["
    For Each cc1 In Range("A2:A100")
        If cc1.Value = "" Then
            Exit For
        End If
        
        result = result & Chr(10) & "{"
            
        
        For Each cc In Range("A1:Z1")
            If cc.Value = "" Then
                Exit For
            End If
                
            temp = Chr(10) & cc.Value & " : " & Chr(34) & Cells(cc1.Row(), cc.Column).Value & Chr(34) & ","
            result = result + temp
        Next
        result = result & Chr(10) & "},"
        
    Next
    result = result & Chr(10) & "]"

    Cells(cc1.Row() + 5, "A") = result
End Sub

（記事のお問合せ・無料相談　→　こちら）