|
▼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」を入れると
出来ました。
|
|