[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『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 >
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.