vbaやマクロでファイル内にあるすべてのcsvファイルの特定の1列を検索して、先頭の4桁の数字で一致した行をすべて抜き出して別のExcelファイルに先頭の4桁と同じシート名に張り付けるにはどうすればいいのでしょうか。