【VBAリファレンス｜実務向け】データの行列入れ替えを自動化！TRANSPOSE関数の実務活用術

ExcelVBA

2026.11.03

導入：なぜTRANSPOSE関数が必要なのか

実務の現場では、システムから出力されたデータを「横持ち（項目が横に並んでいる）」から「縦持ち（項目が縦に並んでいる）」に変換したい、あるいはその逆を行いたいという場面が頻繁にあります。「形式を選択して貼り付け」の「行列を入れ替える」機能は非常に便利ですが、元のデータが更新されたときに、貼り付けた側のデータは自動更新されません。そこで重要になるのがTRANSPOSE関数です。この関数を使えば、元のデータとリンクした状態で、行列を瞬時に入れ替えることができます。

基礎知識：TRANSPOSE関数とは

TRANSPOSE（トランスポーズ）関数は、範囲内の行と列を入れ替える「配列数式」の一つです。
・元のデータが「m行 × n列」の場合、変換後の範囲は「n行 × m列」のサイズで選択する必要があります。
・Excelのバージョンによっては、配列数式を入力する際に「Ctrl + Shift + Enter」を押す必要があります（Microsoft 365などの最新版では通常のEnterで動作します）。

実装：TRANSPOSE関数の使用手順

以下の手順で進めることで、確実にデータを入れ替えることができます。

1. 入れ替え先のセル範囲を、元のデータの「行数と列数を反転させた数」だけ範囲選択します。
2. その状態で、数式バーに「=TRANSPOSE(元のデータの範囲)」と入力します。
3. 最後に「Ctrl + Shift + Enter」を押して確定します。これで数式が｛｝（中括弧）で囲まれ、配列数式として反映されます。

サンプルプログラム：VBAでの応用

実務では、毎回手動で範囲を選択するのが面倒な場合も多いでしょう。VBAを使って、動的にデータ範囲を取得し、TRANSPOSE関数をセルに埋め込むマクロを紹介します。

Sub InsertTransposeFormula()
    ' 対象となるシートと範囲を設定
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 元のデータ範囲（例：A1からC3）
    Dim rngSource As Range
    Set rngSource = ws.Range("A1:C3")
    
    ' 出力先の左上セル
    Dim rngTarget As Range
    Set rngTarget = ws.Range("E1")
    
    ' 出力先のサイズを計算して数式を適用
    ' FormulaArrayプロパティを使用することで配列数式として入力
    With ws.Range(rngTarget.Address & ":" & _
         rngTarget.Offset(rngSource.Columns.Count - 1, rngSource.Rows.Count - 1).Address)
        .FormulaArray = "=TRANSPOSE(" & rngSource.Address & ")"
    End With
    
    MsgBox "行列の入れ替えが完了しました。"
End Sub

応用・注意点：現場でのトラブル回避

1. サイズの不一致に注意：TRANSPOSE関数は、出力先の範囲が正確でないと「#SPILL!」エラーや、古いバージョンでは正しく表示されない原因となります。事前に「行数×列数」の計算を間違えないよう注意してください。
2. 値のみに変換したい場合：もし計算結果が重くなるようであれば、関数で表示させた後に「値の貼り付け」で固定化する運用も検討しましょう。
3. VBAで扱う際の制限：VBAの「FormulaArray」プロパティには文字数制限があります。非常に広範囲のデータを扱う場合は、TRANSPOSE関数に頼らず、VBAの「Range.Copy」メソッドと「PasteSpecial xlPasteAll, Transpose:=True」を組み合わせる手法がより堅牢です。

状況に応じて「関数による自動連動」と「VBAによる定数化」を使い分けるのが、ベテランのテクニックです。ぜひ業務効率化に役立ててください。