なぜ行列の入れ替えが必要なのか？
実務でExcelを扱っていると、外部システムから出力された「縦長」のデータを「横長」に整形して帳票を作成したり、逆に分析のためにデータを縦一列に変換したりする場面に遭遇します。手動でコピー＆ペーストを繰り返すのは非効率ですし、ミスも発生しやすい作業です。今回は、この「行列の入れ替え」をVBAで自動化する方法を解説します。
基礎知識：Excelの行列入れ替えとは
Excelの基本機能である「形式を選択して貼り付け」には「行列を入れ替える」というオプションがあります。これは、行と列を反転させてデータを貼り付ける機能です。VBAでは、この操作をPasteSpecialメソッドの引数Transposeを使用することで実現します。Transposeは「転置（行列を入れ替える）」という意味の言葉です。
実装の考え方
VBAで実装する場合、手動操作をなぞるように「コピー」→「行列を入れ替えて貼り付け」という手順を踏むのが最もシンプルで確実です。
1. コピー元の範囲を特定する。
2. 貼り付け先のセルを指定する。
3. Copyメソッドを実行する。
4. 貼り付け先でPasteSpecialメソッドを使用し、Transpose:=Trueを指定する。
サンプルプログラム
以下のコードは、アクティブシートのA1からB3にあるデータを、D1セルを起点に行列を入れ替えて貼り付ける例です。そのままコピーして標準モジュールに貼り付けてお試しください。
Sub TransposeData()
‘ 画面更新を停止して処理を高速化
Application.ScreenUpdating = False
‘ コピー元と貼り付け先を変数で定義
Dim sourceRange As Range
Dim destCell As Range
Set sourceRange = Range(“A1:B3”) ‘ 入れ替えたいデータの範囲
Set destCell = Range(“D1”) ‘ 貼り付けを開始するセル
‘ コピーを実行
sourceRange.Copy
‘ 行列を入れ替えて貼り付け（Transpose:=True が重要）
destCell.PasteSpecial Paste:=xlPasteAll, Transpose:=True
‘ コピーモードを解除
Application.CutCopyMode = False
‘ 画面更新を再開
Application.ScreenUpdating = True
MsgBox “データの行列入れ替えが完了しました。”
End Sub
応用・注意点：現場で陥りやすい罠
1. 貼り付け先のクリア: 貼り付け先に既にデータが入っていると、上書きされてしまいます。必要に応じて貼り付け先の範囲をあらかじめクリアする処理（ClearContents）を入れるとより安全です。
2. 数式の扱い: PasteSpecialを使う際、数式が含まれているとセル参照がずれる可能性があります。値のみを貼り付けたい場合は、引数をxlPasteValuesに変更してください。
3. データ量と限界: Excelの古いバージョンでは列数に制限がありましたが、現在のバージョンでは非常に大きなデータも扱えます。ただし、シートの端（XFD列など）に近い場所を貼り付け先に指定すると、領域不足でエラーになるため、貼り付け先には余裕を持って指定しましょう。
このテクニックを習得すれば、複雑な表の整形作業がボタン一つで終わるようになります。ぜひ日々のルーチンワークに取り入れてみてください。
