| |
ありがとうございます。
マスタは
商品名、フレーバー、限定の有無、ブランド、メーカー、カテゴリ
の項目があります。
一部のデータを下記に転記しました。
Ｃコラーゲンインアセロラ＆アロエ２５０ｍｌ,10,1,44,4,2
ＳＷｍｉｘアセロラ＆レモン ３５０ｍｌ,10,1,40,4,1
ＳＨＷｍｉｘアセロラ＆レモン ５００ｍｌ,10,1,40,4,1
カクテルＰ Ｄジントニック ３５０ｍｌ,9,1,31,3,3
カクテルＰ Ｄモスコーミュール ３５０ｍｌ,9,1,31,3,3
ここから商品名で検索してallシートにフレーバー以下のコードを記入していきます。
転記しているコードは以下のものです。
結果はアルファベットで始まるマスタのデータのみNAです。
何故でしょう？
'マスタからの転記
'マスタ行数取得
Sheets("マスタ").Activate
gyo2 = Sheets("マスタ").Range("a1").CurrentRegion.Rows.Count
Debug.Print "マスタ" & gyo2
Sheets("all").Activate
'フレーバー
Range("A4").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[4],マスタ!R1C1:R" & gyo2 & "C5,2)"
Selection.AutoFill Destination:=Range("A4:A" & gyo), Type:=xlFillDefault
'限定有無
Range("F4").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],マスタ!R1C1:R" & gyo2 & "C5,3)"
Selection.AutoFill Destination:=Range("F4:F" & gyo), Type:=xlFillDefault
'ブランド
Range("G4").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],マスタ!R1C1:R" & gyo2 & "C5,4)"
Selection.AutoFill Destination:=Range("G4:G" & gyo), Type:=xlFillDefault
'メーカー
Range("B4").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[3],マスタ!R1C1:R" & gyo2 & "C5,5)"
Selection.AutoFill Destination:=Range("B4:B" & gyo), Type:=xlFillDefault
'カテゴリ
Range("C4").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[2],マスタ!R1C1:R" & gyo2 & "C6,6)"
Selection.AutoFill Destination:=Range("C4:C" & gyo), Type:=xlFillDefault
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 05/6/5(日) 18:43 -
