Windows版Excel2016横方向に並んだデータを縦方向に並べる処理(行列の入れ替え)を、何回か繰り返さなければならない場面に出くわしました。ルールが明確にあって、割ときれいなデータだったならば、バッチ処理するExcelマクロを作ったのですが、そうではなかったため、手作業でデータを選択しておいて縦方向に並べる処理を、繰り返すことにしました。選択された横方向のデータを縦方向に並べる処理だけをマクロにしました。[スポンサードリンク]横方向のデータを縦方向に並べるサンプルマクロ大量データをバッチ処理するのではなく、このようなちょっとした手作業を便利にするExcelマクロも、ヒトが手作業で作ったきれいではないシートを扱わざるを得ない実務現場では必要になります。Sub上図のようなデータを選択しておいてから、上記のマクロを実行すると下図のような状態になります。Each~Nextループの中で、RangeオブジェクトのCutメソッドの引数・Destinationを指定して、データごとに切り取り&貼り付けを行うマクロにしてみました。ショートカットキー[F8]でステップ実行すると、データの、切り取り&貼り付けが繰り返される様子を確認できます。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。