エクセルの重複データで古い日付のものを削除する方法

質問

エクセルのリストの中からa列に記載されてる名前が重複しているものを抽出し、b列に記載されてる日付が新しい方を残し、日付が古い方を全て削除するマクロを作りたいのですが、どういう風に言語を記述すればよろしいでしょうか？
よろしくお願いいたします。

回答No.2

KURUMITO

以下の手順をマクロの記録で行うことでもよいでしょう。
基本的にはマクロを使わなくとも次のようにすることで関数処理で対応することができます。
ご質問ではA列で名前が重複しているものをまず抽出し、そのうちで日付が古いものを削除するとのことで良いのですね。
例えばシート1でA列の名前はA2セルから下方に、B2セルから下方には日付が入力されているとします。F列までの表になっているとします。
G列を作業列としてG2セルには次の式を入力して下方にドラッグコピーします。A列で入力されている最も下の行よりもさらに下行の行までドラッグコピーします。

=IF(AND(A2<>"",COUNTIF(A:A,A2)<=1),"",IF(COUNTIF(A$2:A2,A2)=1,ROUNDDOWN(MAX(G$1:G1),-5)+100000+B2,IF(COUNTIF(A$2:A2,A2)>1,ROUNDDOWN(INDEX(G$1:G1,MATCH(A2,A$1:A1,0)),-5)+B2,IF(ROW(A1)<=COUNT(B:B)+INT(MAX(G$1:G1)/100000),(ROW(A1)-COUNT(B:B))*100000,""))))

そこで名前が重複している方の日付が最も新しい行のデータをシート2に表示させることにします。
シート2のA1セルから右横の列にはシート1の項目を入力します。
A2セルには次の式を入力して右横方向にF2セルまでドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(ROW(A1)>INT(MAX(Sheet1!$G:$G)/100000),"",IF(ROW(A1)=INT(MAX(Sheet1!$G:$G)/100000),IF(INDEX(Sheet1!$A:$F,MATCH(MAX(Sheet1!$G:$G),Sheet1!$G:$G,0),COLUMN(A1))=0,"",INDEX(Sheet1!$A:$F,MATCH(MAX(Sheet1!$G:$G),Sheet1!$G:$G,0),COLUMN(A1))),IF(INDEX(Sheet1!$A:$F,MATCH(SMALL(Sheet1!$G:$G,RANK((ROW(A1)+1)*100000,Sheet1!$G:$G,1)-1),Sheet1!$G:$G,0),COLUMN(A1))=0,"",INDEX(Sheet1!$A:$F,MATCH(SMALL(Sheet1!$G:$G,RANK((ROW(A1)+1)*100000,Sheet1!$G:$G,1)-1),Sheet1!$G:$G,0),COLUMN(A1)))))

B列のデータはシリアル値で表示されますので「セルの書式設定」の「表示形式」で「日付」の中から選んでください。
これでシート1に新しいデータが入力されれば自動的にシート2の表が変わります。

なお、名前が重複していない方のデータと名前が重複している方についてはその最新のデータを表示するのでしたら、シート1のG2セルに入力する式は次の式にします。シート2での式は変わりません。

=IF(ROW(A1)<=COUNT(B:B),IF(COUNTIF(A$2:A2,A2)=1,ROUNDDOWN(MAX(G$1:G1),-5)+100000+B2,ROUNDDOWN(INDEX(G$1:G1,MATCH(A2,A$1:A1,0)),-5)+B2),IF(ROW(A1)<=COUNT(B:B)+INT(MAX(G$1:G1)/100000),(ROW(A1)-COUNT(B:B))*100000,""))

お礼

ご丁寧にありがとうございます。試してみます。

回答No.1

noname#217196

並べ替えしておいてから、作業列を使って削除可能か判定する数式を貼り付け（添付図参照のこと）。
オートフィルタを使って、削除フラグが１の値の行だけ抽出後、その行を選択して削除。
オートフィルタをはずしたあと、再度並べ替えで、削除後残った空行を表外に追い出す。
以上の手順を、マクロ記録しておいて、必要に応じて修正したらいいでしょう。

お礼

ご丁寧にありがとうございます。試してみます。