Sub ProcessData() Dim myDic As Object, myKey ' 辞書オブジェクトとキーを宣言 Dim c, myVal ' 変数cとmyValを宣言 Dim i As Long ' カウンタ変数iを宣言 Dim mySh As Worksheet ' ワークシートオブジェクトmyShを宣言 Dim myFlg As Boolean ' フラグ変数m…