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

Excelワークシートを使用しているとき、時にはこのような問題に直面することがあります：データ範囲を1つの列に変換または転置するにはどうすればよいでしょうか？（次のスクリーンショットをご覧ください）ここで、この問題を解決するための3つの簡単な方法をご紹介します。

数式を使用して列と行を1つの列に転置／変換する

Kutools for Excelを使用して列と行を1つの列に転置／変換する

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

数式を使用して列と行を1つの列に転置／変換する

次の長い数式を使用すると、データ範囲を迅速に列に転置できます。以下の手順で行ってください：

1. まず、データ範囲に範囲名を定義します。変換したい範囲を選択し、右クリックしてコンテキストメニューから「Define Name」を選択します。「New Name」ダイアログボックスで、使用したい範囲名を入力し、「OK」をクリックします。スクリーンショットをご覧ください：

2. 範囲名を指定した後、空白のセルをクリックします。この例では、セルE1をクリックし、次にこの数式を入力します： =INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1)。

注：MyDataは選択されたデータの範囲名です。必要に応じて変更できます。

3. 次に、エラー情報が表示されるまで数式を下にドラッグします。これで、範囲内のすべてのデータが1つの列に転置されました。スクリーンショットをご覧ください：

Kutools for Excelを使用して列と行を1つの列に転置／変換する

数式が長すぎて覚えられない場合や、VBAコードにいくつかの制限がある場合は、心配しないでください。ここでは、より簡単で多機能なツールであるKutools for Excelを紹介します。Transform Rangeユーティリティを使用すると、この問題を迅速かつ便利に解決できます。

Kutools for Excelを無料でインストール した後、以下のように操作してください：

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

2. 「Kutools」＞「Transform Range」をクリックします。スクリーンショットをご覧ください：

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

4. 「OK」をクリックし、結果を配置するセルをポップアップボックスで指定します。

5. クリックします OKすると、複数の列と行のデータが1つの列に転置されます。

列を固定行を持つ範囲に変換したい場合も、 Transform Range 機能を使用して簡単に処理できます。

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

次のVBAコードを使用すると、複数の列と行を1つの列に結合することもできます。

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

2. 「Insert」＞「Module」をクリックし、次のコードをModuleウィンドウに貼り付けます。

Sub ConvertRangeToColumn()
'Updateby20131126
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. F5キーを押してコードを実行すると、変換する範囲を選択するためのダイアログが表示されます。スクリーンショットをご覧ください：

4. 「Ok」をクリックすると、結果を出力する単一のセルを選択する別のダイアログが表示されます。スクリーンショットをご覧ください：

5. 「Ok」をクリックすると、範囲内のセル内容が1つの列リストに変換されます。スクリーンショットをご覧ください：

関連記事：

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

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

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