別の列の固有値に基づいて1つの列のセルを転置するにはどうすればよいですか？
例えば、2つの列を含むデータ範囲があり、1つの列のセルを別の列の固有値に基づいて水平方向に転置して次の結果を得たいとします。この問題をExcelで解決するための良いアイデアはありますか？
VBAコードを使用して固有値に基づいて1つの列のセルを転置する
Kutools for Excelを使用して固有値に基づいて1つの列のセルを転置する
数式を使用して固有値に基づいて1つの列のセルを転置する
以下の配列数式を使用すると、固有値を抽出し、対応するデータを水平方向に転置できますので、以下の手順を行ってください：
1. この配列数式を空のセル（例：D2）に入力します：=INDEX($A$2:$A$16, MATCH(0, COUNTIF($D$1:$D1, $A$2:$A$16), 0)) そして、正しい結果を得るために Shift + Ctrl + Enter キーを同時に押してください。スクリーンショットをご覧ください：
注： 上記の数式では、A2:A16は固有値をリストしたい列であり、D1はこの数式が入力されているセルの上のセルです。
2. すべての固有値を抽出するために、フィルハンドルを下にドラッグします。スクリーンショットをご覧ください：
3. 次に、この数式をセルE2に入力します： =IFERROR(INDEX($B$2:$B$16, MATCH(0, COUNTIF($D2:D2,$B$2:$B$16)+IF($A$2:$A$16<>$D2, 1, 0), 0)), 0) 結果を得るためには、必ず Shift + Ctrl + Enter キーを押してください。スクリーンショットをご覧ください：
注： 上記の数式では、B2:B16は転置したい列データであり、A2:A16は転置する基準となる列であり、D2にはステップ1で抽出した固有値が含まれています。
4. フィルハンドルを右にドラッグして、転置されたデータを表示するセルまでドラッグし、0が表示されるまで行ってください。スクリーンショットをご覧ください：
5. そして、引き続きフィルハンドルを下にドラッグして、転置されたデータを取得します。次のスクリーンショットのように表示されます：
VBAコードを使用して固有値に基づいて1つの列のセルを転置する
数式が複雑で理解するのが難しい場合、次のVBAコードを実行して目的の結果を得ることができます。
1. ALT + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを開きます。
2. 「挿入」>「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。
VBAコード: 別の列の固有値に基づいて1つの列のセルを転置する：
Sub transposeunique()
'updateby Extendoffice
Dim xLRow As Long
Dim i As Long
Dim xCrit As String
Dim xCol As New Collection
Dim xRg As Range
Dim xOutRg As Range
Dim xTxt As String
Dim xCount As Long
Dim xVRg As Range
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("please select data range(only two columns):", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If (xRg.Columns.Count <> 2) Or _
(xRg.Areas.Count > 1) Then
MsgBox "the used range is only one area with two columns ", , "Kutools for Excel"
Exit Sub
End If
Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
If xOutRg Is Nothing Then Exit Sub
Set xOutRg = xOutRg.Range(1)
xLRow = xRg.Rows.Count
For i = 2 To xLRow
xCol.Add xRg.Cells(i, 1).Value, xRg.Cells(i, 1).Value
Next
Application.ScreenUpdating = False
For i = 1 To xCol.Count
xCrit = xCol.Item(i)
xOutRg.Offset(i, 0) = xCrit
xRg.AutoFilter Field:=1, Criteria1:=xCrit
Set xVRg = xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible)
If xVRg.Count > xCount Then xCount = xVRg.Count
xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible).Copy
xOutRg.Offset(i, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Next
xOutRg = xRg.Cells(1, 1)
xOutRg.Offset(0, 1).Resize(1, xCount) = xRg.Cells(1, 2)
xRg.Rows(1).Copy
xOutRg.Resize(1, xCount + 1).PasteSpecial Paste:=xlPasteFormats
xRg.AutoFilter
Application.ScreenUpdating = True
End Sub3. F5キーを押してこのコードを実行すると、使用したいデータ範囲を選択するように求めるプロンプトボックスが表示されます。スクリーンショットをご覧ください：
4. 「OK」ボタンをクリックすると、もう一つのプロンプトボックスが表示され、結果を配置するセルを選択するよう求められます。スクリーンショットをご覧ください：
6. 「OK」ボタンをクリックすると、列Bのデータが列Aの固有値に基づいて転置されます。スクリーンショットをご覧ください：
Kutools for Excelを使用して固有値に基づいて1つの列のセルを転置する
Kutools for Excelを持っている場合、高度な行のマージとセルの分割機能を組み合わせることで、数式やコードなしでこのタスクを迅速に完了できます。
Kutools for Excelをインストール後、以下の手順を行ってください：
1. 使用したいデータ範囲を選択します。（元のデータを保持したい場合は、まずデータを別の場所にコピー＆ペーストしてください。）
2. Kutools > 結合と分割 > 高度な行のマージ をクリックします。スクリーンショットをご覧ください：
3. 列に基づいて行を結合するダイアログボックスで、次の操作を行ってください：
(1.) 転置するデータに基づく列名をクリックし、「メインキー」を選択します；
(2.) 転置したい別の列をクリックし、「統合」をクリックしてから、スペース、カンマ、セミコロンなどの区切り文字を選択します。
4. 「OK」ボタンをクリックすると、列Aに基づいて列Bのデータが1つのセルに統合されます。スクリーンショットをご覧ください：
5. 統合されたセルを選択し、Kutools > 結合と分割 > セルの分割 をクリックします。スクリーンショットをご覧ください：
6. セルの分割ダイアログボックスで、「タイプ」オプションの下にある「データの分割」を選択し、その後、統合されたデータを分離する区切り文字を選択します。スクリーンショットをご覧ください：
7. 「OK」ボタンをクリックし、ポップアップしたダイアログボックスで分割結果を配置するセルを選択します。スクリーンショットをご覧ください：
8. 「OK」をクリックすると、必要な結果が得られます。スクリーンショットをご覧ください：
今すぐKutools for Excelをダウンロードして無料でお試しください！
デモ： Kutools for Excelを使用して固有値に基づいて1つの列のセルを転置する
最高のオフィス業務効率化ツール
| 🤖 | Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し…… |
| 人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める…… | |
| スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ…… | |
| 高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト…… | |
| 列マネージャー：指定した数の列を追加 ｜列の移動 ｜非表示列の表示/非表示の切替｜ 範囲＆列の比較…… | |
| 注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキスト ライブラリ｜日付ピッカー｜データの統合 ｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）…… | |
| トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数 |
Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体感しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と保存時間を実現します。最も必要な機能はこちらをクリック...
Office TabでOfficeにタブインターフェースを追加し、作業をもっと簡単に
- Word、Excel、PowerPointでタブによる編集・閲覧を実現。
- 新しいウィンドウを開かず、同じウィンドウの新しいタブで複数のドキュメントを開いたり作成できます。
- 生産性が50%向上し、毎日のマウスクリック数を何百回も削減！
全てのKutoolsアドインを一つのインストーラーで
Kutools for Officeスイートは、Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proをまとめて提供。Officeアプリを横断して働くチームに最適です。
- オールインワンスイート — Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proが含まれます
- 1つのインストーラー・1つのライセンス —— 数分でセットアップ完了（MSI対応）
- 一括管理でより効率的 —— Officeアプリ間で快適な生産性を発揮
- 30日間フル機能お試し —— 登録やクレジットカード不要
- コストパフォーマンス最適 —— 個別購入よりお得