表内のデータを、並び方を変更して別の表に転記するのは、手作業だと大変な手間を要します。そのような表の整形作業はVBAで自動化しましょう。

 この例では、元データの表がワークシート「データ」にあるとします。氏名と部署の1行2列を1セットとして、人数分並んでいます。それらのデータをワークシート「メンバー表」に並べ替えて整形します。

 転記先の表では、氏名と部署が3セットぶん列方向に並ぶように整形します。さらに各セットの間には空白の列を設けます。3セットぶん転記したら、次の行に移動するとします。Subプロシージャ「表整形」を実行して、目的の構成で表を整形しましょう(図1)。

図1●列の構成を変更しながら転記して表を整形
図1●列の構成を変更しながら転記して表を整形
[画像のクリックで拡大表示]

この先は日経クロステック Active会員の登録が必要です

日経クロステック Activeは、IT/製造/建設各分野にかかわる企業向け製品・サービスについて、選択や導入を支援する情報サイトです。製品・サービス情報、導入事例などのコンテンツを多数掲載しています。初めてご覧になる際には、会員登録(無料)をお願いいたします。