【マクロ】重複する同じ行を、削除でなく１番下の行に回し色を付ける為には

【やりたい事】
以下画像をご覧ください
左の表から右の表のようにしたいです
マクロにて①と②のいずれかorどちらもわかる方いましたら

コードorコードのヒントを教えて下さい

①A列にて重複する行を色を付け、表の１番下へ切取り貼付する
※色はなんでも良いです
例 A列１　B列い　の行を最終行へ移動し、色を付ける
A　 B
１　あ
１　い

②B列にてA列が重複する行の、内容を１つにする
例　重複して残す行の方に、内容をくっつける。　あい　とする
A　 B
１　あ
１　い

No.2 ベストアンサー 回答者： fujillin 回答日時： 2025/01/14 12:21

こんにちは

＞コードorコードのヒントを教えて下さい
方法はいろいろあると思いますが、一番わかりやすいのは、ご質問文通りにＡ列について順に判断して処理してゆけば良さそうです。
漠とした質問をするよりも、わからないところを具体的に記した方が、適切なヒントを得られると思います。
もしも、全体的にわからないのなら、仮に、ヒントを貰ったところでできないと思います。

行の移動を行う場合は、都度移動すると結果的に行がずれるのでわかりにくくなります。
最後にまとめて移動するか、コピペしてから元を削除する方が賢明です。


例えば、こんな感じとか。
ただし、以下のロジックでは空白セルは別物と見做しますので、A列に空白セルが含まれる場合は、全てユニークなものとして残ります。

Sub sample()
Dim u As Range, lastc As Range, c As Range
Dim rw As Long

Set lastc = Cells(Rows.Count, 1).End(xlUp)
For rw = 1 To lastc.Row
Set c = Cells(rw, 1).Resize(, 2)
If Application.CountIf(Cells(1, 1).Resize(rw), c(1).Value) > 1 Then
If u Is Nothing Then Set u = c Else Set u = Union(u, c)
End If
Next rw

If Not u Is Nothing Then
u.Interior.Color = rgbGainsboro
u.Copy lastc.Offset(1)
u.Delete xlShiftUp
End If
End Sub

この回答へのお礼

いつもコードありがとうございます
うまく、シンプルにうごきました
参考にさせて頂きます

お礼日時：2025/01/22 07:18

No.4 回答者： tatsumaru77 回答日時： 2025/01/16 08:55

下記へアップしました。

https://ideone.com/IN7Aic

列数を変える場合は、
Dim lastCol As Long: lastCol = 10 '最終列番号
を変えてください。

この回答へのお礼

コードありがとうございます
大変、参考になりました

お礼日時：2025/01/22 07:19

No.3 回答者： tatsumaru77 回答日時： 2025/01/15 08:07

不明点です。

１．A列とB列のデータが例として提示されていますが、
実際は、C列、D列などにもデータがあるのでしょうか。
もし、あるなら、そのデータも行を移動するとき、一緒に移動しないといけません。
実際は、何列まで、データがあるのでしょうか。

２．お客様番号が空白（未記入）のデータはありますか。
例えば、以下のようなケースです。
お客様番号　内容
１　　　　　あ
１　　　　　い
未記入　　　う　　　　・・・①
未記入　　　未記入　　・・・②
２　　　　　え
３　　　　　お

①と②の行のデータです。
もし、ある場合は、どのように扱えばよいのでしょうか。

この回答へのお礼

ご質問、ありがとうございます

実際は約１０列おどありますが
がっちゃんこしたいデータはB列の内容です

お客様番号は、連続しておりまして、未記入は
ありません

ご指導、宜しくお願いします

お礼日時：2025/01/15 21:23

No.1 回答者： いんちょ 回答日時： 2025/01/14 09:28

連想配列（Dictionaryオブジェクト）を利用するといいです。

０．連想配列を準備する
１．表を上から見ていく
1-1 その行のお客様番号が配列に入っている？
Yes→その行に色を付け、配列に入っている行番号の行に内容を統合する
No→お客様番号をキー、行番号をアイテムとして配列に格納
1-2 次の行へ（最後まで繰り返し）
２．色の付いた行を下に移動する

Yesで行移動してもいいんですが、
そうすると行がずれて間違いの元なので、
後で移動するのがおすすめです。