[[20220623154528]] 『3つの条件を指定してVBAで行を削除したい』(さかえ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『3つの条件を指定してVBAで行を削除したい』(さかえ)

条件1:分類1が重複
条件2:分類2が重複
条件3:個数が少ない

_|____A_____|___B____|___C____|___D____|_______

 1|品名      |個数    |分類1  |分類2  |        
 2|砂糖      |       3|調味料  |雑貨    |   
 3|コーヒー  |       4|嗜好    |雑貨    |   
 4|みかん    |       4|フルーツ|柑橘    | 
 5|夏みかん  |       2|フルーツ|柑橘    |  
 6|メロン    |       3|フルーツ|果物    | 
 7|菜っ葉    |       6|野菜    |葉物    | 
 8|ジャガイモ|       2|野菜    |根菜    |  

結果:3つの条件にあてはまる5行目夏みかんの行を削除したい。

調べたら下記コードの事例がありました。
試してみたのですが、これだと3列目の重複しか見てくれません。
複数条件として4列目の重複と2列目の大小を付け加えるには
どのようなコード修正をしたらよろしいでしょうか?

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 = 3

    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

< 使用 Excel:Office365、使用 OS:Windows10 >


[[20220623122541]]
(ちょ) 2022/06/23(木) 17:31

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.