３つの条件を指定してVBAで行を削除したい 条件１：分類１が重複 条件２：分類２が重複 条件３：個数

３つの条件を指定してVBAで行を削除したい

条件１：分類１が重複
条件２：分類２が重複
条件３：個数が少ない

結果1：3つの条件にあてはまる5行目夏みかんを重複するみかん行のA列へ転記したい。
結果2：3つの条件にあてはまる5行目夏みかんの行をVBAで削除したい。
VBAで行の削除をするため調べたら下記コードの事例がありました。

Dim MR As Long
Dim MC As Long
Dim DP As Long
MR = Cells(Rows.Count, 1).End(xlUp).Row '最終行,A:A
MC = Cells(1, Columns.Count).End(xlToLeft).Column '1:1,最終列
DP = 4
Range(Cells(1, 1), Cells(MR, MC)).Sort _
Key1:=Cells(1, DP), Order1:=xlAscending, _
Header:=xlYes
Dim j As Long
With Cells(2, DP)
For j = .CurrentRegion.Rows.Count To 1 Step -1
If .Offset(j, 0) = .Offset(j - 1, 0) Then .Offset(j, 0).EntireRow.Delete
Next j
End With

このコードでは4列目の重複しか見てくれません。
複数条件として5列目の重複と3列目の大小を付け加えるにはどのようなコード修正をしたらよろしいでしょうか？

また結果1の削除する夏みかんのA列への転記はどのように追記したらよろしいでしょうか？

お知恵を貸していただけると助かります。

よろしくお願いいたします。

質問者からの補足コメント

• １．夏みかんとオレンジを削除して一番個数の多いものを残したいです。
  よろしくお願いします。

    補足日時：2022/06/24 11:48

• もし1の場合、想定していませんでしたが夏みかんだけ転記できれば大丈夫です。
  よろしくお願いします。

    補足日時：2022/06/24 11:52

No.4 ベストアンサー 回答者： tatsumaru77 回答日時： 2022/06/24 13:51

下記URLにアップしました。

https://ideone.com/8BkZen

No.6 回答者： めぐみん_ 回答日時： 2022/06/25 04:21

No.3です。

＞１．夏みかんとオレンジを削除して一番個数の多いものを残したいです。

もしもですが No.1さんの表に

・ポンカン 4 フルーツ 柑橘

もあり得るものなのでしょうか？
即ち最大個数が複数存在する可能性です。
あり得なければ良いのですが、あり得た場合の処置の仕方が気になりました。

No.5 回答者： tatsumaru77 回答日時： 2022/06/24 13:53

No4です。

シートを直接書き換えるため、マクロを実行すると、シートはもとに戻りません。
実行時は、念のため、シート毎バックアップをとってから、実行してください。

No.3 回答者： めぐみん_ 回答日時： 2022/06/24 12:16

残したいデータを別シートに転記するってのはダメなんでしょうか？

無論Ａ列についても対処はするとしてですけど。
その後元のシートを削除して移動するとか？

No.2 回答者： tatsumaru77 回答日時： 2022/06/24 11:54

＞１．夏みかんとオレンジを削除して一番個数の多いものを残したいです。

よろしくお願いします。

①その場合、A列には、”夏みかんオレンジ”　と記入すればよいですか？
②マクロ実行時、A列に既に、削除になった商品が記載されている可能性はありますか。その場合は、そのあとに、削除された商品を追記すれば良いですか？

No.1 回答者： tatsumaru77 回答日時： 2022/06/24 11:40

分類１と分類２が重複しているものが３つ以上あった場合は、どうなりますか。

添付図のような例です。
１．夏みかんとオレンジを削除
２．オレンジのみを削除

もし、１の場合、A列に入れるのは、夏みかんだけですか、
それとも、"夏みかんオレンジ"のようにまとめて入れるのですか。