エクセルの関数・マクロについてご質問させて下さい。

質問

入金リスト集計を行なっており、集計の出し方が複雑なので関数やマクロを使用したほうが間違いがなく出せると思いますが、関数やマクロについては素人なので、
投稿いたしました。

各ID（I列）の重複の文字（L列）を除いた個数と、重複の文字を除いた個数の報酬額１（G列白地「6月29日17:59まで」は400円とG列黄色地「6月29日18:00以降」は500円）・報酬額2（画像の右A列のIDを対象とし、G列白地「6月29日17:59まで」は600円とG列黄色地「6月29日18:00以降」は700円）を表したいと考えております。

・Nセル（各IDの1番最初の行）にIセルに記載されている（見切れていますが）IDのLセルにある重複を除いた個数を表示させたいです。
例）N1418セルに上の関数を記載させたいです。IDが変わるとそのセルに関数を載せるという感じにしたいです。

・Pセルに重複の文字を除いた個数の報酬額１（G列白地「6月29日17:59まで」は400円とG列黄色地「6月29日18:00以降」は500円）・報酬額2（画像のA列のIDを対象とし、G列白地「6月29日17:59まで」は600円とG列黄色地「6月29日18:00以降」は700円）を表したいと考えております。

マクロにして、瞬時に計算が出来れば嬉しいです。
説明不足かもしれないのですが、ご教授頂ければと思います。
よろしくお願い致します。

回答No.1

queuerev2

お急ぎのご質問に対して10日以上経過してからの解答にて失礼いたします

質問文の内容、画像より、推定を交えてワークシートの数式を考えてみました。
マクロは使用していません。
使用したExcelは2003です。

なお、以下のように仮定しました。
シートは２つ使用し、画像左のD～N列までが見えているものがSheet1、右のA列のみ見えているものがSheet2とする
Sheet1は2行目から少なくとも1418行目まで画像のようなデータが入っている
Sheet1のデータの最後の行以下は、セルに何も入力されていない
L列の「重複」はこの2文字のみであり余分なスペースなどはない
M列はデータが入っておらず作業用領域として使用してよい
O列にもデータは入っていない
P列に表示する内容は、I列の値がSheet2のA列にない場合は報酬額1、ある場合は報酬額2を表示する

方法は以下のようになります。

まず、Sheet1のM2, N2, P2に以下のような数式を入力する
セルM2
=IF(L2<>"重複",I2,"")
セルN2
=IF(M2="","",COUNTIF(M:M,M2))
セルP2
=IF(M2="","",IF(ISNA(VLOOKUP(M2,Sheet2!A:A,1,0)), IF(G2<DATE(2012,6,29)+TIME(18,0,0),400,500), IF(G2<DATE(2012,6,29)+TIME(18,0,0),600,700)))

次に、Sheet1の3行目以降のデータのある行のM, N, P列のセルに、M2, N2, P2の数式を複写する
（M2～P2を選択し、同じ列の3行目以降にフィルハンドルのドラッグ又はコピー・貼り付けを行えばよい）

以上です。
質問者様の意図されたものとなっているでしょうか？

なお、「マクロにして、瞬時に計算が出来れば」と書かれていますが、この方法ではワークシートの数式を使っているので計算自体は瞬時に行われます。
ただ、Sheet1のデータの追加や削除の際に数式も手動で追加や削除することに問題がある場合はマクロを検討する余地もあると思います。