Excel で重複する行を列に置き換える方法 (4 つの方法)

重複する行を Excel の列に転置する最も簡単で効果的な方法を探しているなら、あなたは正しい場所にいます。それでは、メインの記事に飛び込んで、重複行をすばやく転置する手順の詳細を理解しましょう。

ワークブックをダウンロード

Excel で重複行を列に転置する 4 つの方法

ここでは、さまざまな製品の販売記録を含む次のデータセットがあり、繰り返し行がいくつかあることに注意してください。次の方法を使用して、重複した行を列に簡単に変換しようとします。

Microsoft Excel 365 を使用しています 必要に応じて他のバージョンを使用できます。

方法-1 :条件付き書式を使用して重複行を列に転置する

ここでは、条件付き書式を使用します 重複行を強調表示するため、その後 Column1 で重複行を簡単に転置できます。 と列 2

歩数 :
➤ データ範囲を選択して ホーム に移動します タブ>> スタイル グループ>> 条件付き書式 ドロップダウン>> ハイライト セル ルール オプション>> 重複する値 オプション。

その後、 重複する値 ダイアログボックスが表示されます。
➤ 複製を選択します および 薄い赤の塗りつぶしに濃い赤のテキスト 次を含むセルの書式設定 のオプション 箱。
➤ OK を押します .

<強い>

次に、商品 Walnut の重複行 と アップル が強調表示されるので、各複製の最初の行を簡単に列に変換できます。

➤ 製品 Walnut の行を選択します。 と アップル CTRL を押して それらを選択しながらコピーするには、CTRL+C を押します .

➤ 行を列として貼り付けるには 右クリック 移動先セルで Transpose を選択します。 さまざまな 貼り付けオプション からのオプション .

最後に、重複した行を列に転置できます。

続きを読む: Excel での条件付き転置 (2 つの例)

方法-2 :COUNTIF関数の使い方

このセクションでは、営業担当者の名前と売上値を アンパサンド で結合します。 Extra1 の演算子 COUNTIF 関数を使用して、行の繰り返し回数をカウントします。 エクストラ 2 桁。最後に、 Transpose を使用して、繰り返される行を列に変換します。 オプション。

歩数 :
➤ 次の数式をセル D4 に入力します。 各行のすべてのセルを結合します。

 =B4&C4

こちら B4 営業担当者の名前です 、 C4 は セールス です 値、および &

➤ ENTER を押します フィル ハンドル を下にドラッグします。

次に、Extra1 の各行のセルの組み合わせを取得します

➤ Extra1 の行の繰り返しをカウントするには 列のセル E4 に次の式を書き込みます .

=COUNTIF($D$4:D4,D4)

こちら D4 は基準であり、 $D$4:D4 は範囲です。この範囲は、開始行から数式が使用される行までになります (例:Row 8 )。 範囲は $D$4:D8 になります .

➤ ENTER を押します フィル ハンドル を下にドラッグします。

その後、 Extra2 で繰り返し回数を取得します。 桁。こちら 2 ララのために ハワード は、このデータセットの売上高とともに 2 回出現したことを意味するため、これらの行を列に変換します。

➤ Lara の行を選択します ハワード CTRL を押して それらを選択しながらコピーするには、CTRL+C を押します .

➤ 行を列として貼り付けるには 右クリック 移動先セルで Transpose を選択します。 さまざまな 貼り付けオプション からのオプション .

最終的に、Lara の重複行を転置できるようになります。 ハワード

続きを読む: Excel で行を列に転置する方法 (5 つの便利な方法)

類似の読み物

• Excel で n 行ごとに列を転置する方法 (2 つの簡単な方法)
• Excel Power Query:行を列に転置する (ステップバイステップ ガイド)
• Excel VBA:グループ内の複数の行を列に転置
• Excel で複数の列を 1 つの列に置き換える (3 つの便利な方法)

方法-3 :IF 関数と COUNTIFS 関数の組み合わせの使用

ここでは、IF を使用します。 と COUNTIFS 行が重複しているかどうかを検出する関数。これにより、重複行を簡単に識別して列に変換できます。

歩数 :
➤ セル E4 に次の数式を入力します .

=IF(COUNTIFS($B$4:$B$13,$B4,$C$4:$C$13,$C4,$D$4:$D$13,$D4)>1, "Repeated Row", "")

こちら、$B$4:$B$13 , $C$4:$C$13 、および $D$4:$D$13 1 番目、2 番目、3 番目の範囲です。 $B4 , $C4 、および $D4 1 番目、2 番目、3 番目の基準です。

• COUNTIFS($B$4:$B$13,$B4,$C$4:$C$13,$C4,$D$4:$D$13,$D4) → 行の繰り返し回数を表す数値を返します。
  アウトプット → 2

• COUNTIFS($B$4:$B$13,$B4,$C$4:$C$13,$C4,$D$4:$D$13,$D4)>1 になる
  2>1 → TRUE を返します 条件を満たしていない場合 FALSE .
  アウトプット → 真

• IF(COUNTIFS($B$4:$B$13,$B4,$C$4:$C$13,$C4,$D$4:$D$13,$D4)>1, "繰り返し行" 、「」) になる
  IF(TRUE, "繰り返し行", "") → 文字列 「繰り返し行」 を返します TRUE の場合 、それ以外の場合は空白。
  アウトプット → 繰り返される行

➤ ENTER を押します フィル ハンドル を下にドラッグします。

その結果、テキスト文字列 Repeated Row を取得しています。

➤ 製品 Walnut の行を選択します。 と アップル CTRL を押して それらを選択しながらコピーするには、CTRL+C を押します .

➤ 行を列として貼り付けるには 右クリック 移動先セルで Transpose を選択します。 さまざまな 貼り付けオプション からのオプション .

最終的に、次の図のように転置された重複行が得られます。

続きを読む: Excel で基準に基づいて行を列に転置する方法 (2 つの方法)

方法-4 :VBA コードを使用して重複行を Excel の列に転置する

このセクションでは、 VBA を使用します。 商品 Walnut の重複行を転置するコード と アップル

歩数 :
➤ デベロッパー に移動します タブ>> Visual Basic オプション。

次に、 Visual Basic Editor 開きます。
➤ 挿入に移動します タブ>> モジュール オプション。

その後、モジュール 作成されます。

➤ 次のコードを記述

Sub transform_same_rows()
Dim sht As Worksheet
Dim item, extra_column As Double
Dim storage_object As Object
Set storage_object = CreateObject("scripting.dictionary")
Set sht = Worksheets("VBA")
Total_column = 3
For increment = 4 To 13
item = Join(Application.Transpose(Application.Transpose( _
sht.Cells(increment, 2).Resize(1, Total_column))), "*")
If Not storage_object.exists(item) Then storage_object.Add item, New Collection
storage_object(item).Add sht.Cells(increment, Total_column + 1).Value
sht.Rows(increment).ClearContents
Next increment
increment = 4
For Each item In storage_object
sht.Cells(increment, 2).Resize(1, Total_column).Value = Split(item, "*")
extra_column = Total_column + 1
For Each str_value In storage_object(item)
sht.Cells(increment, extra_column) = str_value
extra_column = extra_column + 1
Next str_value
increment = increment + 1
Next item
For increment = 4 To 13
If sht.Cells(increment, 5).Value = sht.Cells(increment, 4).Value Then
sht.Range(Cells(increment, 2), Cells(increment, 4)).Copy
sht.Cells(increment, 6).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=True
End If
Next increment
End Sub

ここで、sht を宣言しました ワークシートとして 、アイテム 、extra_column ダブルとして , storage_object オブジェクトとして 、次に sht を設定します ワークシートへ VBA 割り当てられた Total_column 3まで .
ストレージ オブジェクト 辞書に設定されています ここにアイテムを保管するのに役立つオブジェクト。
次に、FOR ループを使用しました 行 4 からの増分の範囲 13まで 、TRANSPOSE 関数を使用 2 回、JOIN 関数 行のすべてのセルをセパレータ * で結合しました 変数 item に .その後、アイテムを storage_object に追加しました 次に、すべての行をクリアしました。
次に、SPLIT 関数を使用して、一意の行が 3 つの列に入力されます。 次に、重複行の売上値が Sales の隣接する列に追加されます。 桁。
次に IF ステートメント を使用します 販売値を隣接するセルの値と照合し、条件を満たすために、対応する行をコピーして、この行を転置します。

➤ F5 を押します .
次に、重複行を転置するとともに、データセットから重複行を消去できます。

続きを読む: Excel VBA を使用して行を列に転置する方法 (4 つの理想的な例)

練習セクション

自分で練習するために、練習を提供しています Practice という名前のシートで以下のようなセクション .自分でやってください。

結論

この記事では、重複する行を Excel の列に転置する方法について説明しようとしました。役に立つことを願っています。提案や質問がある場合は、コメント セクションで自由に共有してください。

参考文献

• Excel で転置する方法 (5 つの簡単な方法)
• グループ内の複数の行を Excel の列に入れ替える
• Excel で列を行に転置する方法 (6 つの方法)
• Power Query を使用して Excel で列を行に変換する
• セルの値に基づいて Excel で列を行に変換する方法
• Excel で複数の列を行に転置する VBA (2 つの方法)
• 一重引用符を使用して列をコンマ区切りのリストに変換する方法
• Excel VBA で転置する方法 (3 つの方法)