| 
    
     |  | ▼ikeda さん: 
 今晩は・・・
 Vlookpの一致の時は、0又はFalseです。
 ですから、「,0」を入れてください。
 フレーバーと限定有無の二箇所のところに「,0」を入れたものを
 掲載しておきます。他のコードも訂正して下さい。
 
 'フレーバー
 Range("A4").Select
 ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[4],マスタ!R1C1:R" & gyo2 & "C5,2,0)" ←の「0」です
 Selection.AutoFill Destination:=Range("A4:A" & gyo), Type:=xlFillDefault
 
 '限定有無
 Range("F4").Select
 ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],マスタ!R1C1:R" & gyo2 & "C5,3,0)" ←の「0」です
 Selection.AutoFill Destination:=Range("F4:F" & gyo), Type:=xlFillDefault
 
 ・・・・・・・・・・以下同じように「,0」を入れると
 出来ました。
 
 |  |