Excelで列からXNUMXつのセルにデータを転置する方法は？

データのリストをワークシートのXNUMXつのセルに転置する必要がある場合、通常は、 連結する セルのリストをXNUMXつのセルにマージする機能ですが、結合する必要のある膨大なデータがある場合は複雑になります。 この記事では、Excelでこのタスクを解決するための簡単なトリックについて説明します。

ユーザー定義関数を使用して、列からXNUMXつのセルにデータを転置します

Kutools for Excelを使用して、列からXNUMXつのセルにデータを転置します

ユーザー定義関数を使用して、列からXNUMXつのセルにデータを転置します

セル値のリストをマージする連結関数を除いて、次のVBAコードを適用して、できるだけ早く結果を取得できます。

1。 を押し続けます Alt + F11 キー、そしてそれは開きます アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：列からXNUMXつのセルにデータを転置します

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） 空白のセルに入力して結果を入力し、を押します 入力します キーを押すと、列内のすべてのセル値がXNUMXつのセルに配置されていることがわかります。スクリーンショットを参照してください。

Note：上記のコードでは、 A1：A10 は、XNUMXつのセルに転置するリスト範囲です。また、スクリプト内のコンマを変更するだけで、マージされたコンテンツを他の区切り文字（コンマ、ダッシュ、スペースなど）で区切ることができます。 xStr = xStr＆xCell.Value＆ "、".

Kutools for Exceを使用して、列からXNUMXつのセルにデータを転置します

あなたが持っている場合 Kutools for Excel、その強力なツールで-組み合わせる、列、行、または範囲のデータをXNUMXつのセルに組み合わせることができます。

インストールした後 Kutools for Excel、次のようにしてください:( 今すぐExcel用のKutoolsを無料でダウンロードしてください！ )

1。 XNUMXつのセルに結合するデータ列を選択します。

2に設定します。 OK をクリックします。 クツール > マージ＆スプリット > データを失うことなく行、列、またはセルを組み合わせる、スクリーンショットを参照してください：

3。 ポップアウトされたダイアログボックスで、 単一のセルに結合 下 次のオプションに従って選択したセルを組み合わせるには、次に、マージされたコンテンツを区切るための区切り文字を指定します。スクリーンショットを参照してください。

4。 次に、をクリックします Ok or 申し込む ボタンをクリックすると、必要に応じて次の結果が得られます。

今すぐExcel用のKutoolsをダウンロードして無料トライアル！

デモ：Kutools for Exceを使用して、列からXNUMXつのセルにデータを転置します