列と行を転置／変換して単一行にするにはどうすればよいですか？

複数の行と列を1つの長い行に結合するにはどうすればよいですか？簡単だと思うかもしれません。なぜなら、手動で1つずつコピーして行に結合できるからです。しかし、数百行や列がある場合、それは時間がかかり、退屈な作業になります。ここで、その問題を解決するためのいくつかの簡単な方法をご紹介します。

数式を使用して列と行を単一行に転置／変換する

VBAコードを使用して列と行を単一行に転置／変換する

Kutools for Excelを使用して列と行を単一行に転置／変換する

数式を使用して列と行を単一行に転置／変換する

次のスクリーンショットに示すように、データ範囲を持っていると仮定すると、長い数式を使用して新しいワークシート内の範囲データを1行に変換できます。

以下の数式を適用してください：

1. アクティブなワークブックの新しいワークシートで、セルA1をクリックし、この数式をコピーして貼り付けます： =OFFSET(Sheet1!$A$1,((ROW()-1)*5)+(FLOOR(COLUMN()-1,4)/4),(COLUMN()-1)-(FLOOR(COLUMN()-1,4)))

注釈: Sheet1!$A$1 は使用したいワークシートと範囲参照です。

ROW()-1)*5 では、5は行番号を表します。また、COLUMN()-1,4)/4 の 4は列番号を表します。必要に応じてこれらを変更できます。

2. 次に、数字0が表示されるまで右方向にフィルハンドルをドラッグします。この場合、範囲内のすべてのデータが新しいワークシートの単一行に転置されます。スクリーンショットをご覧ください：

VBAコードを使用して列と行を単一行に転置／変換する

次のVBAコードも、データ範囲を1行に変換するのに役立ちます。

1. ALT + F11 キーを押したままにし、Microsoft Visual Basic for Applications ウィンドウを開きます。

2. 挿入 > モジュール をクリックし、モジュールウィンドウに次のコードを貼り付けます。

Sub TransformOneRow()
'Updateby20131120
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Ranges to be transform :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Paste to (single cell):", xTitleId, Type:=8)
Application.ScreenUpdating = False
xRows = InputRng.Rows.Count
xCols = InputRng.Columns.Count
For i = 1 To xRows
    InputRng.Rows(i).Copy OutRng
    Set OutRng = OutRng.Offset(0, xCols + 0)
Next
Application.ScreenUpdating = True
End Sub

3. 次に、 F5キーを押してコードを実行すると、ダイアログがポップアップして、行に変換したい範囲を選択できます。OKをクリックすると、別のポップアップダイアログが表示され、結果を出力する単一のセルを選択できます。スクリーンショットをご覧ください：

次にOKをクリックすると、選択された範囲の内容が行に変換されます。スクリーンショットをご覧ください：

注釈: Set OutRng = OutRng.Offset(0, xCols + 0) では、0を任意の数値に変更してニーズに合わせることができます。

例えば、元の行に基づいて結果を1列で区切る場合、Set OutRng = OutRng.Offset(0, xCols + 0) を Set OutRng = OutRng.Offset(0, xCols + 1) に変更できます。結果は次のようになります：

Kutools for Excelを使用して列と行を単一行に転置／変換する

前述の2つの方法は、私たちExcel初心者にとって少し難しいかもしれません。そこで、便利なツールであるKutools for Excelについてご紹介します。

Kutools for Excelには300以上の便利なExcelツールが含まれています。30日間無制限で無料試用が可能です。 今すぐ入手してください。

Kutools for Excelの Transform Rangeユーティリティを使用すると、範囲を迅速に単一行に変換できます。以下の手順に従ってください：

1. 転置したい範囲を選択します。

2. Kutools > 範囲 > Transform Range をクリックします。

3. Transform Rangeダイアログボックスで、Range to single rowオプションを選択します。スクリーンショットをご覧ください：

4. OKをクリックし、ポップアップボックスから結果を配置するセルをクリックします。

5. OKをクリックすると、範囲内のデータが単一行に転置されます。スクリーンショットをご覧ください：

この機能についてさらに詳しく知りたい場合は、 Transform Rangeをご覧ください。

関連記事：

Excelで行を列に変更するにはどうすればよいですか？

Excelで単一の列を複数の列に転置／変換するにはどうすればよいですか？

列と行を単一の列に転置／変換するにはどうすればよいですか？