エクセルの縦横データ入れ替え：3つの方法とVBAの活用｜Excelマクロ

はじめに

エクセルでの共同作業中、表の縦横が逆になっているケースに遭遇したことはありませんか？このような状況は、データ分析や報告書作成時によく起こり、修正に時間を取られがちです。本記事では、この問題を効率的に解決する3つの方法を詳しく解説し、特にVBAコードを使った高度な自動化テクニックをご紹介します。

はじめに
まとめ

1. 手作業による方法（非推奨）

まず、最も基本的な方法として手作業による入れ替えがあります。しかし、これは以下の理由から推奨されません

時間がかかる
ミスが発生しやすい
大量のデータには不向き

手作業での入れ替えは、小規模なデータや緊急時の対応としては有効ですが、効率性を重視する場合は避けるべきでしょう。

2. TRANSPOSE関数を使う方法

エクセルの組み込み関数であるTRANSPOSE関数を使用すると、簡単にデータの縦横を入れ替えることができます。

下図を例にすると、任意のセルに＝TRANSPOSE(A1:D4)を入力してエンターを押すだけです。

この方法は、中規模のデータセットに適しており、手軽に使えるという利点があります。ただし、元のデータとの連動性がないため、データが更新された場合は再度実行する必要があります。

3. VBAマクロを使う方法

より柔軟で強力な方法として、VBAマクロを使用する方法があります。ここでは、2つの異なるアプローチを紹介します。

3-1. 同じ位置で縦横を入れ替えるVBAコード

このコードは、選択した範囲のデータを同じ位置で縦横入れ替えができます。

Sub 縦横入れ替え※同位置()
Dim rng As Range
Dim tempSheet As Worksheet
Dim firstCell As Range
    
    ' 選択範囲を設定
    Set rng = Selection
    Set firstCell = rng.Cells(1, 1)
    
    ' 一時的なシートを作成
    Set tempSheet = Sheets.Add
    
    ' 選択範囲を一時的なシートに転置してコピー
    rng.Copy
    tempSheet.Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    
    ' 転置されたデータを元の位置にコピー
    tempSheet.Range("A1").Resize(rng.Columns.Count, rng.Rows.Count).Copy
    firstCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    ' 一時的なシートを削除
    Application.DisplayAlerts = False
    tempSheet.Delete
    Application.DisplayAlerts = True
    
    ' クリップボードをクリア
    Application.CutCopyMode = False
End Sub

3-2. 別の位置に縦横を入れ替えて貼り付けるVBAコード

このコードは、選択したデータを別の位置に転置して貼り付けます。

Sub 縦横入れ替え※別位置()
Dim rng As Range
Dim destCell As Range
　　
　　' 選択範囲を設定
　　Set rng = Selection
　　
　　' 転置したデータの貼り付け先を設定（例としてセルG1に貼り付け）
　　' 必要に応じて変更してください
　　Set destCell = Application.InputBox("転置データの貼り付け先を選択してください:", Type:=8)
　　
　　' 選択範囲をコピーし、転置して貼り付け
　　rng.Copy
　　destCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
　　
　　' クリップボードをクリア
　　Application.CutCopyMode = False
End Sub