| 
    
     |  | いつもお世話になっております。 
 たとえば、下記のような罫線付きExcel表(ワークシートSheet1)
 
 ┌─┬─┬───┐
 │A │B │C   │
 ├─┼─┼───┤
 │1 │あ│a   │
 ├─┼─┼───┤
 │2 │い│   │
 ├─┼─┼───┤
 │3 │う│b,c  │
 ├─┼─┼───┤
 │4 │え│d   │
 ├─┼─┼───┤
 │5 │お│e,f,g │
 └─┴─┴───┘
 
 を下記のような罫線付きExcel表(ワークシートSheet1)
 
 ┌─┬─┬─────┐
 │A │B │C     │
 ├─┼─┼─┬─┬─┤
 │1 │あ│a │ │ │
 ├─┼─┼─┼─┼─┤
 │2 │い│ │ │ │
 ├─┼─┼─┼─┼─┤
 │3 │う│b │c │ │
 ├─┼─┼─┼─┼─┤
 │4 │え│d │ │ │
 ├─┼─┼─┼─┼─┤
 │5 │お│e │f │g │
 └─┴─┴─┴─┴─┘
 
 に自動的に変換するVBAコードを教えて頂きたいのですが、よろしくお願いします。ただし、行と列の数は任意とします。要は最終列にあるカンマ区切りのデータを分離して最終列 +(データ数 - 1)列の罫線付き表に書き直し、最終列のタイトル(第1行目)のセルは最大データ数(上記の例では3)に応じたセルの大きさにしたい。
 
 
 |  |