Excel で複数の列をすばやく1 つの列に積み重ねるには、どうすればよいですか？
Excel には、区切り文字による列の分割機能があり、指定された区切り文字を使って1 つの列のデータを複数の列に分割できます。では逆に、下図のように複数の列の値を1 つの列に結合したり、縦方向に積み重ねたりする必要がある場合はどうすればよいでしょうか？このようなケースは、データセットを集約したり、分析用に情報を整えたり、さらなる処理のためにレポートを整形したりする際に頻繁に発生します。残念ながら、Excel には列を縦方向に直接積み重ねる組み込み関数はありませんが、このタスクを効率的に実現できる実用的な解決策がいくつかあります。
数式で複数の列を1 つに積み重ねる
マクロやアドインを使いたくない場合は、INDEX 関数を使った配列数式で、複数の列を1 つの列にスマートに積み重ねられます。この方法は、動的データセットの扱いや手動操作を避けたい場面に最適です。この数式の大きなメリットは、ソースデータが変更されると結果が自動的に更新されること。ただし、セルの名前を正確に指定し、参照範囲内でセルの挿入や削除を行わないようご注意ください。
1。積み重ねたいデータ範囲（例：A1:C4）を選択し、名前ボックス（数式バーの左側にある）をクリックして、MyDataなど分かりやすい名前を入力し、Enterキーを押してください。これで範囲に名前が付き、いつでも簡単に参照できるようになります！
2。積み重ねた1 列を開始したい空白セル（通常はデータの下または別のシート内）をクリックし、選択したセルに次の数式を貼り付けてください。
=INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1)3。Enterキーを押して確定し、その後、フィルハンドルを下にドラッグして#REF!などのエラーが表示されるまで続けます。これはすべてのデータがリストされたことを示します。必要に応じて、エラーセルを削除してください。
この数式では、MyDataはステップ1 で定義した範囲を指します。COLUMNS(MyData)はデータ内の列数に応じて自動的に調整されます。数式を入力した後は、MyData 内にセルを挿入したり列を削除したりしないようご注意ください。そうすると、結果に影響が出る可能性があります。データに空白セルが含まれている場合、それらも積み重ねられます。必要であれば、後からフィルターで除外できます。大きな範囲を扱う際は、フィルハンドルをドラッグするのに時間がかかるため、左隣の列に最後までデータがある場合はダブルクリックすることをおすすめします。
お使いのExcel バージョンが動的配列をサポートしている場合（Excel 365 またはExcel 2021 以降）、以下の数式をお試しください。
=TOCOL(MyData,1)この数式は新しいExcel バージョンでのみご利用いただけ、列を即座に1 つの列に積み重ねます。
VBA で複数の列を1 つに積み重ねる
列を頻繁に積み重ねる必要がある場合や、より高度な制御をご希望の場合は、VBA マクロでこのプロセスをわずか数回のクリックで自動化できます。VBA は、大規模なデータセットや繰り返し作業をこなす上級ユーザーに最適です。ただし、信頼できないソースからのマクロを有効にすると、セキュリティリスクが生じる可能性がある点にご注意ください。必ず事前にファイルを保存し、見知らぬコードの実行には十分ご留意ください。
1。Alt + F11を押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。
2。VBA ウィンドウで、挿入 > 標準モジュールをクリックし、次のコードを新しいモジュールにコピー＆ペーストしてください。
VBA：列を1 つに積み重ねる
Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
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キーを押すか、実行ボタンをクリックしてください。実行後、プロンプトが表示されるので、積み重ねたいデータ範囲を選択して、OKをクリックします。
4。次に、結果の出力先セルを選択するプロンプトが表示されます。目的のセルをクリックしてから、再度 OKをクリックしてください。これにより、選択した列が指定したセルから始まる1 つの列に積み重ねられます。
エラーが発生した場合は、「範囲を選択してください」を再確認し、シートが保護されていないか、セルの結合がないかをご確認ください。空白セルをスキップしたり、特定の列のみを積み重ねたりするなど、さらに高度なカスタマイズが必要な場合は、コードを修正できます。VBA コードを実行する前に必ず作業内容を保存し、意図しないデータ損失を防いでください。
範囲の変換で複数の列を1 つに積み重ねる
数式やコードを記述せずに、より迅速でユーザーフレンドリーな方法をお探しの場合は、範囲の変換Kutools for Excel の機能をご活用ください。このユーティリティは、直感的なインターフェースでスピーディーにデータ処理を行いたい方——たとえばオフィス管理者や日常的に多次元データを扱うユーザー——に特に役立ちます。Kutools を使えば、数式ミスのリスクを最小限に抑えながら、大幅な時間節約を実現できます。ただし、アドインのインストールが必要です。
Kutools for Excel を無料でインストールした後、以下の手順に従ってください。
1。積み重ねたい列またはデータ範囲を1 つの列に選択し、Kutools>範囲>範囲の変換をクリックしてダイアログを開きます。
2。範囲の変換ダイアログボックスで、範囲を単一列に変換オプションを選択し、OKをクリックします。その後、結果を表示したいセルを選択してください。
3。最後に、OKをクリックします。選択した列がすぐに指定した場所に1 つの列として積み重ねられます。
この方法は簡単でエラーが発生しにくいです。何か不都合がある場合は、すぐに元に戻す（Ctrl + Z）ことができますし、異なるデータセットに対して範囲の変換を必要なだけ再実行することも可能です。データに結合済みが含まれている場合は、予期しない結果を避けるためにこの機能を使用する前に結合を解除することをお勧めします。
Power Query で複数の列を1 つに積み重ねる
Power Query（一部のExcel バージョンでは「クエリと接続」とも呼ばれます）は、複数の列を1 つに積み重ねるもう一つの実用的な方法です。特に大量のデータを扱う方や、繰り返し行われるデータ変換タスクを自動化したい方に最適です。Power Query はExcel 2016 以降に標準搭載されており、Excel 2010 および2013 では無料のアドインとしてご利用いただけます。高度なデータ準備に非常に有用で、シンプルなユーザーインターフェースを通じて複雑なデータ整形操作も簡単にこなせます。ただし、初めて使う方にとってはやや学習曲線があります。
ソーステーブルを Power Query に読み込みます。Excel でデータを選択し、データ > テーブル/範囲からをクリックして、Power Query エディターを開きます。
2。クエリプレビューで全列を選択します。変形タブのテーブルグループにある転置をクリックすると、行と列が入れ替わります。
3。再度、転置後のすべての列を選択します。変形タブの任意の列グループで、列のアンピボットをクリックしてください。
4。「属性」列が不要な場合は削除します。列見出しを右クリックし、「削除」を選択します。
5。閉じて読み込むをクリックすると、結果がExcel の新しいワークシートまたはテーブルとして出力されます。ソースデータが変更された場合はいつでも、変換を更新または再適用できます。
Power Query では、この積み重ね処理を再利用可能なクエリとして保存でき、将来データが変更された場合にも結果を簡単に更新できます。
注：この方法では、ソースデータの元の列見出しが保持されない場合があります。
まとめると、これらの手法それぞれに独自の強みがあります。数式はデータを動的に更新するのに最適で、VBA は繰り返し作業の自動化に優れています。Kutools for Excel なら、技術的な知識がほとんど不要で、ポイント＆クリック操作だけで対応可能です。また、Power Query は高度な変換や定期的なデータ処理に最適です。処理後は、必ず積み重ねたデータに空白セルや結合セル、書式設定エラーが残っていないか確認してください。エラーや予期しない結果が表示された場合は、定義した範囲や選択したステップを再度見直しましょう。これらの手法を組み合わせることで、レポート作成や分析のニーズに応じて、Excel データをより効率的に管理・変換できます。
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行 ｜ コード生成｜ カスタム数式作成 ｜ データ分析とチャート生成｜ 拡張機能呼び出し… |
| 人気の機能：検索・ハイライト、または重複をマーキング ｜ 空白行を削除する ｜ データを失うことなく列の結合またはセルを ｜ 数式を使用しない四捨五入... | |
| スーパー LOOKUP：複数条件 VLookup ｜ 複数値 VLookup ｜ 複数シート間 VLookup ｜ ファジーマッチ.... | |
| 高度なドロップダウンリスト：ドロップダウンリストをすばやく作成 ｜ 連動型ドロップダウンリスト ｜ 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較... | |
| 注目の機能：グリッドフォーカス ｜ デザインビュー ｜強化された数式バー ｜ ワークブックとシートマネージャー ｜ リソースライブラリ（オートテキスト）｜ 日付ピッカー ｜ ワークシートの統合 ｜ 暗号化／セルの復号化 ｜ リストからメール送信 ｜ スーパーフィルター ｜ 特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。） 。。。 | |
| トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得