Excelで列のデータを1つのセルに転置するにはどうすればよいですか？

ワークシート内のリストを1つのセルに転置する必要がある場合、通常はConcatenate関数を使用してセルのリストを1つのセルに結合できますが、大量のデータを結合する必要がある場合は複雑になります。この記事では、Excelでこのタスクを解決するためのいくつかの簡単な方法について説明します。

ユーザー定義関数を使用して列のデータを1つのセルに転置する

Kutools for Excelを使用して列のデータを1つのセルに転置する

ユーザー定義関数を使用して列のデータを1つのセルに転置する

セル値のリストを結合するためにConcatenate関数を使用する以外に、次のVBAコードを適用して結果を得ることができます。

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

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

VBAコード：列のデータを1つのセルに転置する

Function transposeRange(Rg As Range)
'updateby Extendoffice
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
        If Not IsEmpty(xCell.Value) Then
            xStr = xStr & xCell.Value & ","
        End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
End Function

3. その後、このコードを保存して閉じ、ワークシートに戻り、この数式: =transposerange(A1:A10) を空白のセルに入力して結果を表示し、Enterキーを押します。これにより、列にあるすべてのセル値が1つのセルに配置されます（スクリーンショット参照）。

注: 上記のコードでは、A1:A10は1つのセルに転置したいリスト範囲です。また、スクリプトのxStr = xStr & xCell.Value & "," のカンマを変更することで、他の区切り文字（カンマ、ダッシュ、スペースなど）で結合された内容を分離することもできます。

Kutools for Excelを使用して列のデータを1つのセルに転置する

Kutools for Excelを持っている場合、強力なツールである「Combine」を使用して、列、行、または範囲のデータを1つのセルに結合することができます。

Kutools for Excelをインストールした後、次の手順を実行してください：

1. 1つのセルに結合したいデータ列を選択します。

2. Kutools > 結合と分割 > 行/列/セルを結合して値を保持 をクリックします（スクリーンショット参照）。

3. 表示されたダイアログボックスで、選択したセルを次のオプションに従って結合するセクションの下にある「1つのセルに結合」を選択し、結合された内容を区切るための区切り文字を指定します（スクリーンショット参照）。

4. 次に「OK」または「適用」ボタンをクリックすると、必要な結果が得られます。

今すぐKutools for Excelをダウンロードして無料でお試しください！