エクセルマクロ作成　先着で５００ポイント進呈します。

期待動作が得られた方に先着で。
---------------------------------------
検索元となるブックのある文字列を、指定したフォルダ内の全ブックで検索し、
カウント結果をエクセルファイルに出力する。

前提
・検索元→シート1にA列とI列にデータが入っている。（複数行）
・検索先→複数のシートがあり、A列～S列にデータが入っている。（複数行）
要求仕様
①検索したいデータ
検索元ブックのシート1の各行を検索し、D列のデータがDoneである、A列の文字列。（5、6桁の半角文字列）
文字列は「検索したい文字列を含む」で検索。123で検索なら、1234、5123でもカウント。
②検索場所
検索先シートの、R列を検索。
但し、検索元ブックの「I：1」に文字が入力されている場合は、検索先シートのP列がその文字列と一致する場合のみカウント。
「I：1」が空白の場合は、全データをカウント。