|
いつもお世話になっております。
たとえば、下記のような罫線付き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)に応じたセルの大きさにしたい。
|
|