Excel VBAで自動見積を行いたいと考えています。ご教授下さい。

質問

Excel VBAで自動見積を行いたいと考えています。ご教授下さい。

まだ、VBAを始めたばかりの初心者です。
下記の様な独立した２つのブックがあります。
実行したいのは
第一のブック（sheet1)のC列の品名を見て第二のブック(Sheet1)のC列の品名が一致する場合、
その行にある単価(F列)を第一のブックの単価欄(G列)にコピーしたいのです。

その作業を第一のブックの品名欄が空白になるまで繰り返し行い、合計値を算出したいと思っています。
また、見積依頼者が品名記載ミスをした場合に備え、類似品（上５桁程度で検索）も可能でしょうか？
第二のブックに該当品名が無い場合には（？）等を第一のブック価格欄に表示したいのですが・・・・
初心者には、欲張り過ぎているため、作業スタートが出来ません。
ご教授頂きたくお願い致します。

見積部品シート（第１のブック／sheet1）　
　　　A　　　B　　　　　C　　　 D　　　　　E　　　　F　　　G　　 　H I　　　　J
１　記号　　規格　　　　品名　　品番　　 メーカー　 数量　 単価　 　小計
２　R１　　1W10Ω　　　 AAAA　 0123　　　 あ　　　　１ =F2*G2
３　C１　　50V１０μF　 BBBB　　4567　　　 い　　　　２　 =F3*G3
４　D１　　1S2000　　　CCCC　　8901　　 　う　　　　１ =F4*G4
５　T１　　10VA　　　　DDDD　　2345　　　 え　　　　２ =F5*G5
６

価格データベース（第２のブック／sheet1）
　　　A　　　　　　　B　　　　　C　　　 D　　　　　E　　　 　F　　　　G I 　　　J
１　名称　　　　　　規格　　　　品名　　 品番　　 メーカー　　単価　　
２　抵抗　　　　　　1W10Ω　　　 AAAA　　0123　　　あ　　　 　2
３　コンデンサー　　50V100μF 　BBBB　 　4567　　　い　　　　20
４　ダイオード　　　1SS***　　 CCCC　　 8901　　　う　　　　45
５　IC　　　　　　　XXXXD　　　DDDD 1245 　　　え　　 　100

回答No.1

yosifuji2002

VBAなど使わなくても関数だけでもできるでしょう。

品名の検索は、VLOOKUP関数で可能です。
また代用品の検索は、IF関数でVLOOKUPの結果がN/Aの時という条件でで、代用品のデータを利用して可能です。

具体的には 価格データベースの右側にセルを追加して下記の式を入れます
J2　　＝LEFT(C2,5)　　　これで左から5桁のデータができます。
K2　　＝G2　　　　　　　この製品の価格をここに表示します。

そしてJとK列を他の離れた列に値のコピーして、これを品目でソートします。これが代用品のデータベースです。
このコピーとソートはマクロで簡単できますよね。

VLOOKUPを使う時は、価格データベースのデータは品名で昇順になっていること、代用品のデータベースも上5桁のコードで昇順になっていることが必要です。

以上でVBAなどの面倒なことはしなくても目的は達成できます。

お礼

有難うございました。
解決しました。
また、本依頼重複していましたので、キャンセルします。

補足

申し訳御座いません。

データベース量と状況説明が不足していました。

データベースの行数は数千行あります。

また、データベースは社内の共有資料のため加工付加です。

第一の見積資料も２００行以上あります。

第一の見積資料はフォーマット（共通）ですが、物件毎に内容が異なります。

毎回、Ｅｘｃｅｌ関数で作成するのはキツイので、ＶＢＡ化を考えました。

検索条件は、完全一致でなくても良いと考えています。（大文字／小文字を判別しない）

以上を踏まえご指導頂ければ幸いです。

宜しくお願い致します。